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FOREWORD 


The LOVES computer code was developed to investigate the 
concept of space servicing operational satellites as an alternative to replac- 
ing expendable satellites or returning satellites to earth for ground refur- 
bishment. In addition to having the capability to simulate the expendable 
satellite operation and the ground refurbished satellite operation, the pro- 
grarn is designed to simulate the logistics of space servicing satellites using 
an upper stage vehicle and/ or the earth to orbit shuttle. The program not 
only provides for the initial deployment of the satellite but also simulates 
the random failure and subsequent replacement of various equipment modules 
comprising the satellite. The program has been used primarily to conduct 
trade studies and/or parametric studies of various space program operational 
philosophies. 

The program was developed in the CDC 6400/7600 computer 
complex at The-Aerospace Corporation, El Segundo, California, for imple- 
mentation on a UNIVAC 1108 computer. It is coded in SIMSCRIPT 1. 5 and 
fortran IV. SIMSCRIPT (simulation of a program used for design and 
development purposes) is a simulation language originally developed at the 
Rand Corporation and now available from Consolidated Analysis Centers, 

Inc., (C.A.C.I. ) in Santa Monica, California. FORTRAN IV (Formula 
Translation System) is a standard scientific programming language in com- 
mon use in computer programs. 

There are five volumes to this final report which are as follows: 


Volume I: 
Volume II: 
Volume III: . 

Volume IV: 
Volume V: 


Executive Summary, ATR-76(736l)- 1, Vol I 

Manned Systems Utilization, ATR-76(736l)-l, Vol II 

LOVES Computer Simulations, Results and Analyses, 
ATR-76(7361)-1, Vol III 

Program Manual and Users Guide for the LOVES 
Computer Code, ATR-76(736l)-l, Vol IV (formerly 
•"ATR-74 (7341)-6) 

Program Listing for the LOVES Computer Code, 
ATR-76(7361)-1, Vol V (formerly ATR-74(7341)-7) 


page 





This volume (Vol V) represents the final version of the program 
code. It incorporates all of the changes made to the code since the publi- 
cation of the previous listing. 

Design of the program was initiated by The Aerospace, Corporation 
in FY 74 under Study 2. 1, Operations Analysis, Payload Designs for Space 
Servicing (contract NASW 2575). It was completed in FY 75 under Study 2. 
Manned Systems Utilization Analysis (contract NASW 2727). The NASA 
Study Director for FY 74 and part of FY 75 was Mr.- V, N. Huff, NASA 
Headquarters, Code MTE. The NASA Study Director for the balance of 
FY 75 was Dr.- J. W. Steincamp, MSFC, Code PD 34. 
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DESTROY WARN CALLED lEW 
LET EWARN<IM) = 0 
2 IF TW EQ 0,, GO TO 5 

XET .JTFMO(I) -WMOOU _ ' 

IF TW GT TX, LET TW = TX 
IF TIME + TW GT TGO(IS), GO TO 5 
CREATE WARN CALLED I EW 

LET P-SAT.(IE_W.)_.= IS 

LET PMOO(IEW) = IM 

LET TIMEAdEW) = ATIMEdS) 

CAUSE WARN CALLED lEW AT TIME + TW 

' CAUSE "FATLU'RES” 

5 LET EWARNCIM) = lEW 
LET lEF =■ EFAIL(IM) 

" IF TF’GT TTFMd'drr tET IF i TTFHO(I) 

IF lEF EQ 0, GO TO 6 

IF TIMEF(IEF> NE 0., CANCEL FAIL CALLED lEF 
DESTROY FAIL CALLED lEF 

““ LtrEFAlUTlMr~^"0 

6 IF TF EQ 0., GO TO 10 

IF TIME + TF GT TGO(IS), GO TO 10 

CREATE FAIL CALLED lEF^ _ 

LET PSAfdEF) ■= rs . " - - - - • 

LET FMOD(IEF) = IM 

LET TIMEAdEF) = ATIMEdS) 

.CAUSE EA.IL. called IEF AT TI ME + TF . 

LET EFAlLdM) = IEF 
10 RETURN 
END 

ENDOGENOUS EVENT ARRIV _ ' 


AOMOD 

“AOTfOlT 

AOMOD 

ADMOO 

ADMOD 


■ ADMOD^ 
AOMOD. 
■ADMOO 
ADMOD, 

'T^DHOIT" 
ADMOO . 
AOMOD 
ADMOD 
“TfDffOD”" 
ADMOO 
ADMOO ‘ 
ADMOO 
“ AXIHDD" 
ADMOO 
ADMOO 
ADMOO 

■ ADHODT * 
ADMOD 
AOMOD 
AOMOD 

"nniMOD" 
ADMOO 
ADMOO 
ADMOO 
"ADMOD” 
AOMOD . 
AOMOD , 
AOMOD 


1! 

12 

“IT' 

14 

15 

16 


THIS IS THE ARRIVAL OF A SATELLITE IN ORBIT AFTER TIME OF FLIGHT. 

..)10.y„. ACTIVATE N.EW. SAT ELL IIE . .. 

ATTEMPT TO REACTIVATE SATELLITES WITH REPLACED MODULES 

LET lEXAR = IEVAR^+ 1 

LET IS = RsatIAT^RIV) - - - - 

LET IM = PMOD(ARRIV) 

DESTROY ARRIV 
IF IM NE 0. GO TO 1(3 0 
L'ETIST = irsArrrsi — 

LET JSY = ITSYS(IS) 

LET NDEP(IS) = NDEPdS) + 1 
LET NPOS(IS) = NPOSdS) + 1 

LET K' = ~ “■ ■' 

DO TO 2, FOR I=(FSAT (JSY)) (LSAT(JSY>) 


'DDMOIT 
AOMOD 
AOMOD 
ARRIV 
“ARFIV" 
ARRIV 
ARRIV 
ARRIV 
““ARRIV” 
ARRIV 
ARRIV 
ARRIV 
— 3TRRTV” 
ARRIV 
ARRIV . 
ARRIV 
-"ARRIV” 
ARRIV 
ARRIV 
ARRIV 
“HRRtV" 
ARRIV 
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27 
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30 

31 
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"33“ 

34 

35 

36 
"37 

38 

39 

40 

41 

42 

43 

44 
"W 

46 

47 
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■ 3 

4 

5 

6 
”7 

8 

9 

10 

TI 
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13 

14 
-T5- 

18 
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"19- 
20 





OS<I) NE 0, LET K = .X + 1. 


(,JS Y,).i ^LET^IGO SY ( JS Y ). ,=_4I 
tE:8EGST(ISJ Ed e., LET BEGSKIST =r-TITfer 
•lEl-TLAST (IS) EQ 0., LET TLAST(IS) = -TIME 

leT’:atihe(is) = time 

= J.IME.. 

TIME ■+ TTSATfJST) ' 

TIMES, LET.TGO(IS) = TIMES 
EQ 0 4 GO TO 5 

‘GT, TIMES, LET TGOSY(JSY)= TIMES 


+ TTSVSCJSY) 


C 

C 

~G~ 

G 


2Q 

30 

35 

40 

4 


„L.EJ_J)XJ.MEas.).. 
LET TGO(IS) = 
TGO(IS). GT 
TGOSY (JSY) 
TGOSY (JSY) 
TO' 4, T01< 
TGO(I) LE 


IF 

IF 

IF 

00 

IF 


- . i 


rS-^CF STS TTJST)')'Ti;SAnJSY)")- 
TGOSY (JSY), GO TO 4 


RESCHEDULE SATELLITE TERMINATIONS CAREFULLY 


AT T 


LET T =TGOSY(JSY) 

JF MARKS(I) EQ 0, GO TO ,20 
■TTANCEU'SATDN CALLED' MA'RKS'a) 

CAUSE SATDN CALLED MARKS(I) 

IF MARKU(I) EQ 0, GO TO 30 
CANCEL NWSAT CALLED MARKU(I) 

' DESTROY' ■NWSAT' CALLWM'A'RKUTn 

LET MARKUd) =0 

00 TO 4C, FOR ALL MODSY IN MODCI) 

IF EWARN(MOOSY) EQ 0,. GO TO 35 

'IF T 1 M E V '( E W A R N ■( HO DSY T r'CET; "G‘0'~TO~3C 
CANCEL WARN CALLED EWARN(MODSY) 

DESTROY WARN CALLED EWARN(MOOSY) 

LET EWARNIMODSY) = 0 
“1 F ' EF A iri M OlJSY r~Ein)'7-CD "TO'^A ff " 

IF .TIMEV (EFA,IL(MOOSY)} LE T, GO 
CANCEL FAIL CALLED EFAIL(HOOSY) 

DESTROY FAIL GALLED EFAIL(MODSY) 

"CET :e f'a'i C( ho'osyt' •=''{t 

LOOP 

LET TGO(I) = TGOSY(JSY) 

LOOP 

"TF' BE'G'SYTJSY ) "~EQ“0I7‘ t'ET' SEGSTTJST) 

IF TLASY(JSY) EQ 0., LET TLASY(JSY) 


TO 



= ' TtME' ' 
= -TIME 


ALL MODSr I^5 MOO( .. ,:IS) 


+ WAIT! 


C 

C 

c 


CALL STATUS(IS,0,2) ^ , 

.CALL ADMOOdS, MODSY) , FOR 

X£^-YP^-"=-"P0LT)N( JSTl' — •“ 

IF IPOL EQ 0, 60 TO 200 
LET T = TIME ^ TTSAT(JST) 

jpALL SAVER1T,IS)_ ’ ; , 

SCHEDULE SATELLITE EVENT (SATDN) AT TERMINATION TIME 

200 IF MARKS(IS) EQ 0, GO TO 1 

CANCEL SATDN CALLED MAR’KSdS) 

DESTROY' SATDN CALLED MARKSdS) 

LET MARKSdS) = 0 
1 LET T = TIME f TTSAT(JST) 

' '■ TF'SDRTE(ITSAT(IST)*NE“0;; RETURN'"' “ 

IF T GT TGOdS) , LET T = TGOdS) 
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ARRIV , 
•ARRTV 
ARRIV 
ARRIV 
ARR IV 
"A'RRXVTTr 
ARRIVE 
ARRIV". 
ARRIV' • 

“AlRRTr 

ARRIV 
ARRIV 
ARRIV > 
-ffRRIV'T— 
ARRIV 
ARRIV 
ARRIV 
"ARRIV—" 
ARRIV 
ARRIV 
ARRIV 
^RRRXV" ■ 
ARRIV 
ARRIV. , 
ARRIV '. 

"ARRIV 

ARRIV 
ARRIV 
ARRIV 
•ARRIV" — 
ARRIV 
ARRIV 
ARRIV 

"A-RRIV 

ARRIV 
ARRIV 
ARRIV 
"ArSRIV-^" 
ARRIV ; 
ARRIV X 
ARRIV ' 

-'A-RRIV 
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77 



c 

..c.. 

c 


^MARKSaS) 

„LEJ .PSAT (MARKSaS)) = IS 
CAUSE SATDN CALLEO MARKSdS)'"" 
RETURN 


AT' r 


"C 

c 

c 


. _SIN.Gl,.£ MOCLULE IS RERLACEO I N ORB IT 

100 IF SSTATdS) EQ OUT, RETURN 
CALL AOMOQCIS.IM) 

... CALL STATUS (IS, IM, 2) 

lET MOCNT(NOMOD(IH))’“= -MDCNTfNOMOD'n:Mn“+'' i 

RETURN 

END 

..e.N OOGENOUS EVENT BACK 


WHEN THIS EVENT OCCURS, THE SATELLITE IS REHOVEO FROM ORBIT 


C. 

C 

C 


CALL STATUS(PSAT(3ACK) ,0,5) 

DESTROY ‘BA-CK - 

RETURN 

END 

EXOGENOUS EVENT BEGIN 

SAVE " ■ ■ - * - - , 

READ TIMES, TIMES 
F0RMAT(2M5.2.2) 

CREATE START 

CAUSE start ’AT I.'" 

CALL LDAT 

LET lEVBE = IEV3E + 1 

iNiTTALimroN — ~ 

LET TREFT = TREFT/360. 

,LET SREFT = SREFT/360. 

LET PREFT = PR£FT?360; 

LET SEPFT =SEPFT/360, 

LET WAIT3 = WAIT3/360. 

LET PAOT = PACT /360. 

LET wAm = wArTi/3oo; ■ ■ 

LET WAIT2 = WAIT2/360. 

LET WAIT4 = WAITi‘/'360. 

. ,LET WSATU = WSATU/360. 

LET WSATN = WSATN736D'; — 

LET WMODU = WHODU/360, 

LET WMOON = WMOON/360. 

LET NTFLT = 1000 

LET TL'IMS' ^ TLTMS/SS'd, - - 

LET NFSEP = 1000 
LET NFSUT.= 1000 

k|T MIN39(I) =.1000, FOR I=(1)(NYEAR) 
LET MIN 86 (I) = ICOO", TOR- 1=1 IV (NY EAR) 
LET MIN9p(I> = 1000, FOR I = (1)(NYEAR) 
LET MINSL(I) =1000, FOR l=(l)(SYORB) 
LET N227(I) = 1000, FOR 1=(1)(SY0R3> 
LET N20 8 (IV i 10 00 . FOR 1= (1) (STSTB) 
LET N200(I) = 1000., FOR I=(l) (STSTB) 




ARRIV 

80 

- AWIV 

■■ -81—” 

ARRIV 

82 

ARRIV 

83 

ARRIV 

84 

■■ ARRTV 

- ~S5- 

ARRIV 

86 

ARRIV 

87 

ARRIV 

88 . 

ARRIV 

^9" 

ARRIV 

90 

ARRIV 

91 

SACK 

2 

^ BACK 

i 

SACK 

4 

BACK 

5 

BACK 

6 

BACK 

" ■ T ~ 

BACK 

8 

BACK 

9 

BEGIN 

2 

- BEGIN ' " 

- 3 - - 

BEGIN 

4 

BEGIN 

■5 - 

BEGIN 

6 

B"EGITr 

~7 ~ 

BEGIN 

8 

BEGIN 

9 

BEGIN 

10 

BIGITr " 

- " " - 

BEGIN 

12 

BEGIN 

13 

BEGIN 

14 

’ ■ BEGIN 

XE 

BEGIN 

16 

BEGIN 

17 

BEGIN 

18 


o 

t 


BEGIN 
BEGIN 
BEGIN 
• BTGIN 
BEGIN 
BEGIN 
BEGIN 
-BE^xr- 
BEGIN 
BEGIN 
BEGIN 
BEGIN" 
BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 




bll mki m 

^U.ET. N12KI) = 1300,. £PS .I=<.1.L<MITAB> . . . 

LET N125(I) = 1000 , EOT^ I^(inMITA3) 

LET N129(I) = iOCO, ..FOR I=<1)(MITAB> 

LET MTD(I>-= 10flC.,FOR I=(l){3) 

LET MCVA(I) = 1000., FOR I=(l)(3). 

T '’RETURN' ■ 

END ’ , ■ 

; • SUBROUTINE CSPAY f ' , 

“COKPUTE L~A UN CH • STATISTICS FOR P'AYLO’AOS 

LET 3=0.’ 

DO TO 11, FOR I=(1MNl{I0R3) ) 

LET 'NY -= rtOAT>TIT""™ ^ ^ 

LET B = B.+ PAYWT(NY) IS S 

IF IMOD(NY) EQ 0, GO TO 11 
LET NX = IMOO(NY) 

L"E T "N ONTNXr = "NaMTNX T ~T~i to- 
ll LOOP to to 

LET. NMD = ANMD(IORB) ■ 

LET SU'= (NMO+NINSU-l) /NINSU 

IF SU EQ 0., GO TO 13 ' ■ 

LET X = SU^WTSU/ANMOdORB) CS 

LET_B = B SU.»WTSU __ p 

13‘ DO TO 1L‘,”'F0R J=T'DTNL CTO'RB) ) ‘ -is'fef 

LET II = ILOAD(J>- 
LET NX = ISAT(II) 

LET NY = IMOO(II) . , _ „ . 

IF NY EQ 0, GO TO 12 ■ 

LET PAYW.KII) = PAYWT(II) + X 
LET M = lOO.^PAYWTaD/B + .5 
LET LOAOFTNY) = LO.AOF(NY) + M - 

GO TO" 15. " 

12 LET SATLF(NX) = SATLF(NX) + PAYWT{II)/B 
15 let LFSAT(NX) = LFSATCNX) + PAYWT(II)/8 
, IL LOOP ■ • 

■ — RETURN^ - 

END • • ■ '• 

SUBROUTINE DROPQT J,IO) 

■“BRO-P-PAYI 0 AO ■ T" FR'OM"'irdAO''‘Q'UEUF OR B f IDT' 

REMOVE J FROM ORBQ(IO) 

LET K = MLEV (J) ____ 

‘■OESTROY“PAYLD'“ C"ALL'EO"J"“^. 7 —;—: 

IF K.EQ. O', RETURN 
CANCEL LAUNC CALLED K 
DESTROY LAUNC CALLED K 

RETaRTi""' ■ 

END 

ENDOGENOUS EVENT FAIL 


= SATLF(NX) 
= LFSATCNX) 


PAYWT 

PAYWT 


CII)/B 
CII) /8 


rHIS"R'OUTINE VilLL MARK OUTAGE OF A "SATELLITE AND NOT 




. ooo; -onoo aoa ooo. i oino 


(MAYBE MORE THAN 


LET lEVFA = lEtfFA f 1 

~“'rF'riM'GE TIMEG; LET EXMOD = MODS “ ■' ~ 

LET IS = PSAT (FAIL) 

LET IM = PMOO (FAIL) 

LET T = TIMEA(FAIL) 

■" DESTROY FAIL ’ ' “ ' 

LET EFAIL(IM) = 0 

BLOCK F AJ LURE, EVENT .(FOJ: LAUNCH ) IF MODULE IS NOT .REPL_A_CEAJL_E,^ 

IF SSTAT(IS) EU OUT, RETURN 
IF T LT ATIHE(IS), RETURN 
CALL STATUS(IS,IM,3) 

LET'NOFALTNOMODdM)') = N0~FAL ( NOM'OD(IH) )' + I - 

IF XSAT(IS) £Q too, RETURN 
IF SSTAT(IS) £Q OUT, RETURN 

..L.ET..QELAY = WMOON . _ .. , . _ „ . 

BLOCK EVENT AFTER TIMES 
.IF..EWARN (IM) NE 0, RETURN 

IF TIME f OELAy-GT TGOdS")"!; RETURN 

PUT FAILURES INTO FREEBIE OUEUE 

■“ create qwait ■ ■■ 

LET PSAT (QWAIT) = IS 
LET PMOO(QWAIT) = IM 
.LET TIMEA(QWAIT) = DELAY 

CAUSE QWAIT AT TIME + WAltAT ' 

RETURN 

END 

. SUBROUTINE FILEO 

OUTPUT SATELLITE STATUS SUMMARY REPORT 

CHRONOLOGICAL HISTORY OF EVENTS PRESENTED BY SATELLITE 

“ '"DrifENSION WWWXAT — 

LET TRIG2 = 1 
WRITE ON 6 

-- FORMAT (^.1’^) 

READ DATA FROM 1 TAP£(OIS<) AT A TIME 

. DO TO 10 ,■ FOR LL=(1) (ID) 

CALL’ PUTrR"(X,fL,fy ' 

CREATE THE SET FRS FOR THE TAPE ^ 

■ 1 CALL GEtF'R"(RW'W,LL,ll<T 

IF IK NE D, GO TO 2 
CREATE FR 

..LEI. Wl.(FR) _= WWW(J)_ 

LET W2(FR) = WWW(2) ‘ 

LET W3(FR) = WWW (3). 


mt 

9 

FAIL 

3 

FAIL - 

.. .g, „ 

FAIL 

10 

FAIL 

11 

FAIL 

12 

FAIL ■ - 

T3 

FAIL 

14 

FAIL 

15 

FAIL 

16 

— FATC— ' 

• 17 - 

FAIL 

18 

FAIL 

19 

FAIL 

20 

FAIL 

“21 

FAIL . 

22 

FAIL 

23 

FAIL 

24 


FAIL 

FAIL 

FAIL 

-“F15IL — ^ 

FAIL 

FAIL 

FAIL 

■ FAIT — 
FAIL 
FAIL 
FAIL 

~~FWIZ 

FAIL 

FAIL. 

FILED 

■ FTCECr • 
filed 

FILEO 

FILEO 

FILED 

filed 

FILEO 

FILEO 

“ TTUEU 

FILEO 

FILEO 

FILEO 

-“FirE-O 

FILEO 
FILEO 
FILEO 
■"■FTLEU- " 
FILEO 
FILED 
FILEO 
" "FILEO ■ 
FILEO 



Qoo! 1 j ; ‘ ooo; > 2» ! ooop 


GO TO 1 . 

■■^“rF'TRS' IS EMPTY," SO TO TO ' ' — 

PROCESS THE SET FRS TO PRINT ALL SATELLITES ON THE TAPE 


00 TO 5, FOR ALL FRTN’ FRS ' 

LET TIME = TIMEF(FR) 

LET IS = SATNO(FR) ■ • 

. LET I = SATSY(FR) . ■ . ... 

LET Nposcrs)' =“n”ps(Frt ■ ■ - 

IF I EO 1, LET K = UP 
IF I EQ 2, LET K = DOWN 
^.IFJ_EQJJ, let K = OUT 

LET STATiITS'yS{Isrr"= 'K • 

LET I = ST(FR) 

IF I EQ 1, LET K = UP 
-.IF_.I.E.Q 2.,.. LLT_j: = DOWN 

IF I EQ 3, LET K = OUT 

LET SSTAT(IS) = K 
LET FREE = NOEL(FR) 

IF.INOW NE ISj_WRITE ON 6 , 

FORMAT(»0 ■ "CHR'OnO'lOGIC'AX ■"TIME HISTORY or SATELLITE POSITFON 
*N OR0IT»/S5,*TIME SYSTEM STATUS SATELLITE STATUS 

* MODULE ' STATUS^) 

LET INOW = IS - ' 

CALL ST'ATUS'C IS, MODNO <FR) ,'NOSTA{FR)}“ 

RELEASE MEMORY ■ 


■ REMOVE "FT? FROM'FRS”" * "" 

DESTROY FR 

5 LOOP 
10 LOOP 

■ ■ LET‘TRTG2' ='"2’ . 

RETURN ■ - ■ , 

:now 0 

END 

SUBROUT I NE f I LES ( XSiTTT^TSTr r 

STORE SATELLITE DATA FOR THE SET FRS ON 10 TAPES ON DISK 
USl f!LJ,,LHPj??ARILY L: L L ■ 

DIMENSION WWW(4) • • 

. CREATE FR 

LET TiMEF(FR) = TIME - 

■ ■ LET SATNOTFR) “=i:5“ ' “ - : ^ 

LET I .= STATdTSYSdS) ) 

IF I EQ UP, LET-K =1 

IF I EQ DOWN, LET K- = 2 , - , 

" IF 1~EQ' 00T7 LET~r"=“S ^ 

LET SATSY(FR) = K 
LET I = SSTAT(IS) 

. IF I EQ UP, LET K = 1 . , • ' 

IF I"rQ“00WH7“CETrK"= '2 ■ • -- - “ 

IF I EQ OUT, LET K = 3 ■ • - • . . . 


Fftl8 

ll 

FILEO 

27, 

•' FILEO" 

. 28 

FILEO 

29 

FILEO 

30 

FILEO 

31 

FILEO , 

32“ - “ 

FILEO 

33 

FILEO. V 

. 34. ' 

FILEO ‘ 

. >'35.,'.. ' 

" FILEO" “ 


FILEO 

37 

FILEO 

38 

FILEO 

39 

"—•FiLro 

— if Tr " 

FILEO 

41 

FILEO 

42 

FILEO 

43 

"■ "FILEO — 

- njir 

FILEO 

45 

FILEO 

46 

FILEO 

47 

1 "i: FTLEO"' - “ 

‘■"48 T 

FILEO 

49 

■FILEO , 

50 

FILEO 

.51 

■ " FILED 

- 52^ - - - 

FILEO 

53 

FILEO 

54 

FILEO 

55 

FILED ■ 

" 56“^^ — ' 

FILEO 

57 . 


FILEO • 
FILEO' 
--pirEo — 
FILEO 
FILEO 
FILEO 

"FIL-ES 

FILES 

FILES 

FILES- 

“FXtES 

FILES 
FILES 
FILES 
“FIVES'^— 
FILES 
.FILES 
FILES 
'“FTtES" — 
FILES 
FILES 
FILES 

“ FILES 

.FILES.’ 


. 58 ; 

.59 ■ ' 
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7 
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9 

— to 

11 

12 

• 13 . ■ 


15 

16 
17 

19 ' 
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■LET NOSTA(FR) = 1ST 

■ LET WOELCFR)' = FREE' " ' 

LET NPS(FR) = NPOS(IS) ' 

LET LL = (10*IS4-SYORB-1) /SYORB 
LET WWW(l) = Wl(FR) 

■ ■ L e T ■ 'f^'W W (2 J ■ = W'2 { FRT‘ 

LET WWWC3) = W3(FR) 

LET WWWTLJ .= WL(FR) 

...CA.LL„EU.IES<iLWH.,,LL , 0J_ 

DESTROY FR 

RETURN 

END 

...5.UiR0.U.IIiLe. G£_L\LiXfi.Q)_ 


FIND NECESSARY VEHICLES ^ • 

LEI.IRAD^r.J) 

LET ITUG = 0 . 

LET ISEPS = 0 . • 

LET IGO = D 

^L£T. ,ISHUT_ =..C„ 

LOCATE NEXT AVAILABLE LAUNCH PAD 

DO to' 25, FOR I=(NPA0KI0R8)) (NPAD2(’rORB>) 

' IF'V'pADCI) ■C£"T3;"G'0" ro""25 
LET IPAD = I , 

GO TO i 
25 LOOP 

■"LET XGO' =; 4‘ “ ~ 

RETURN 

.... L OG ATE .NEXT AVAILABLE SH UTTLE IN JfLEET 

1 DC TO 5, FOR I=(1)(NSHUT> 

IF NO Lt 0, LET NLEG = 2 

IF VSHUT.(I) LE 0, GO TO 5 ' 

LET rs'Huf =-i" : ‘ 

GO TO 6 ■ • 

5 LOOP 

lj:t.. iGQ.= i : ^ : • 

. RETURN , ■ . - 

LOCATE NEXT AVAILABLE UPPER STAGE IN FLEET 

■ 6" IF" RWPlimr) 'W'o 7"(T(3~TdTr(r — ; 

•00 TO 1C,..F0R- I=<1HNTUG) 

IF'.VTUG ( I> LE, 0, GO TO 10 

LEI I TUG „ . 

GO TO 7 
10 LOOP 

LET IGO ■ = 2 - ■ . ■ 

RETURN. .. ■. ■: 

LOCATE NEXT AVAILABLE SEPS IN FLEET 




c 

c 

C' 

-g- 



1 IF RQSEPCIORB) £Q 0» GO TO 20 
- -D.O„.TO .15., FOR I={1)(NSEPS) ' • 

IF VSEPS(I) LE 0, GO TO IT . •“ ■' 

LET ISEPS = I 
GO TO 20 ■ 

15„LO_CP__ _ ■ 

LET IGO = 3 ■ 

20 RETURN • , , 

ENO , ' 

SU.0RO.UTINE .I.SPAYCW.GHjWGHDN) 1 ■ j_j;. 

SET UP PAYLOAD ARRIVAL AND REMOVAL FROM ORBIT EVENT SEQUENCE 

8EIRI.E:VJE..L AUNCJi.p.AXA £SPif._LOAO.I.^^^ .QUE.y£ j: P QUE AND CIT EM 

, .IF NO 6T 0, GO TO 7- ■ . ' . ' “ . 

IF ISEPS EQ Q, GO TO 7 
_. _IF EXPV(RQSEPaORB)) NE 0., GO TO 2fl . 

CET'OUMMf'S ' 0” " ~ 

LET FLYT = ORBTM(IORB). 

LET ILOAD(l> = PQUEdORBJ 
LET ,NQ = NLdORB) 

LET I L 0 A 0 ( J + IT ■= " C IT ETJ Tit 0 AO C jn 7' F 0 R ' U=- ( 1 )■ { NQ- 1 > ' r: 

LET NMO = ANMOdORB) 

LET SU = (NMD+NINSU-1) /NINSU 
LET W6H = SU*WTSU ‘ ' . 

■ - -U£T'litTN-='SU-»UENSU' ' ■" > =- 

LET WGHDN = 0,' 


mt 

GETV 


lET WLEND = Q.- 
IF EXVEH EG Q, 


LET WGHDN = WGH 


"IF'EXVEH E'Q O', LET WCEmi'^=~HCEN" 


LET WGHDN = 0. 


IF PSERV EG 1, 

IF PSERV EQ 1, LET WLENO - 
00 TO 10 ♦ FOR I={i) TNG) 

rET“-RX ■= TLOAO'd) 

IF IRT{NX) N£ 0» GO TO 12 . 

LET WGH =-W6H + PAYWT(NX) 

_ LET WLEN = WLEN + PAYLN(NX) 

■ TF 'T H OOl NX7 t G' 0 '» ' GO "T 0" 10 

11 IF EXVEH NE 0, GO TO 10 

IF IHOO(NX) EG 0,.-GO TO 12 - ^ ' 

..IF PSERV NE O', GO ,To ifl ' v;.''.’:- - : 

r2niEnre'Fro¥' 

LET WLENO = WLENO + PAYLN(NX) 

10 LOOP . 

.IF ISEPS EQ 0, GO TO lA 

TF“NG"EQ~'-2i'"60 TO~150”' ' 

LET WGH = WGH + WUSEP 

IF WUSEP NE 0., LET WLEN = WLEN + LSEP 
LET D .= WGHDN 

■“ TEr WGH-D'r'=" GWDN'aSERST ^ 

LET SWON(ISEPS) =0 

LET 0 = WLEND 

LET WLEND' = SLDN<ISEPS) 

to ’StONTISEPST ■= -O' 

. LET WGHDN - WGHDN + WONSP 


• GETV 

GETV 
GETV 
GETV 
~ GETV“ 
GETV ' • 
GETtfV’ 

I, SPAY 
TGPIAY” * ■■ 
ISPAY , 
ISPAY 
ISPAY • 

”ispAr 

ISPAY 
ISPAY 
, ISPAY 
■'TGFAT""""'- 
ISRAY 
•ISPAY 
ISPAY 

-I'SRSY: 

ISPAY 
ISPAY," 
ISPAY . 
“TSFAT—^^ — 
ISPAY . 
ISPAY 
ISPAY 
TTSPAY 
ISPAY' 
ISPAY ■•» . 
ISPAY ' 

: ISPAY""" 

ISPAY 

ISPAY 

ISPAY 

'ISPAY 

ISPAY 
ISPAY . 
ISPAY ' ' 

d"SPAir~- 
ISPAY 
ISPAY 
ISPAY ' 

I SPAT": 

ISPAY 

ISPAY 

ISPAY 

-ISP AT 

' ISPAY. 
ISPAY 
ISPAY ■ 

"ISPAY 

ISPAY 


, iti- 

kT 

— AS- 
AD 

50 

51 

— 52r 
' 53 
54 
2 

3-- 

4 

■5. 

6 

3 

9 

-10 

•~1T"“ 

12 

13 

14 

— 15"- 

16 ' 

• 17 
18 : 
"“1^ 
20 
21 
22 

- 23 - 

24. 

- 25, = - 

26 

28 

29 

30 

“3r- 

32 

33 
34- . 

-155- 


oi 

t 



48 



A50 

14 

C 

. c, .. . 
c 


c 

c 

c 


c 

„C-. 

c 


LO^WGHDN = WONSP 
LET WlEND = LSEP 
LET DUMMY = 9 


_DEFINi£ PAYLOADS IN LAUNCH. 


LET WLEND = WLEND + LSEP 




LAUNCHED*) 


;*SEPS" RETPirvErr*) 


IF TRIG EQ 0, WRITE ON 6,IPAD,I SHUT,ITUG»ISEPS, WGH, WGHOM, WLEN, 

* WLEND 

— . -F0g.MAJC{S5.t*r”LA.UNCH._N0„W.r- PAD*jJ.2_,* SHUTTLE*jI3,» — TUG*, 13 
*-- 3pS*,I2,* — WEIGHT =* , D6 , , D5',* -- L’ENGTH , 03 .1 , */* ,D2 

IF TIME GT TIMES, CALL GSPAY 
. .. L.EJ. IP_=.PA!1T.. . . 

LET T = fl. 

IF ISEPS N£ Q, LET T = TDOWN 
IF TP LT T, LET TP = T 
IF ISEPS cQ 0, GO TO 5 

IF TRIG NE 0, SO TO 'S ' “ 

LET TE = TIME 
LET I = OPART (TE) 

LET J = HPART (TE) + 1 

LET K = MPART (TE) +1 - . 

IF WUSEP NE 0., WRITE ON 6 , I , J , K , ISEPS 
FORMAT (*0 *,I5,*.*,I2,*,*,I2,S63,*SEPS 

IF WDNSP NE 0., WRITE ON 6 , I , J, K, ISEPS 
' ' F0.R'MAT(*'^D ■ *,I5 ,*.*,I2,*.'*,T2,'S63i*S 

LET DUMMY = 0 

DO TO 17, FOR J=(l) (Nl (IOR3) ) 

LET IK = ILOAD(J) 
let NX = ISAfUK) ■ 
let NY = IMOD(IK) 

LET AST = SORTEdTSAT(NX)) 

. -IF AST.NE 0, i-.EJ .FL.YJ .= ._AST 
IF IRT(IK) NE C, GO TO 16 

DEPLOYMENT PAYLOAOS' 

LET FREE = LQTIM( IK)"/3 0‘0C . 

CALL ST-ATUS(NX,NY,4) 

CREATE ARRIV 

.L-E.T-P SAT (ARRIV) = M.X 

LET PMOD(ARRIV) = NY" ' 

CAUSE ARRIV AT TIME + TP + GOTIM(IK) 

IF AST EQ 0, , GO TO 15 

. . . LET. G,OTI.Mai^.)..=. AST _ 

16 IF AST NE 0., 60 TO 160 
CREATE BACK 

SQ.H.E.0UL£..,RETRIEVALS . 

LET PSAT(BACK) = NX 
CAUSE SACK AT TIME f TP + FLYT 
150 CREATE REMOV 

"TCFT ■ PSA TTREMOVT ' 

CAUSE REMOV AT TIME + TP + GOTIM(IK)- 


IS 

ISPAY 51 

■■ I SPAT— -^2T~ 
ISPAY 53 

ISPAY 54 

ISPAY 55 

ISPAY "• 56 

ISPAY 57 

ISPAY 58 

ISPAY 59 

.2, ISP"AY" 60 

ISPAY 61 

ISPAY 62 

ISPAY 83' 

rSF-AY 6TT 

ISPAY 65 

ISPAY 66 

ISPAY 67 

" rSPAT" “ '6-8- 
ISPAY 69 

ISPAY 70 

ISPAY 71 

“ " ISPAY • ~7Z- 

ISPAY 73 

ISPAY ' 74 

ISPAY 75' 

ISFAY T6 

ISPAY 77 

ISPAY 78 

ISPAY 79 

"TSTO 8(T" 

ISPAY 81 

ISPAY 82 

ISPA Y 83 

ISPAY, 85 

ISPAY 86 

ISPAY 87 

" TSFAY 35^ 

ISPAY 89 

ISPAY 90 

ISPAY 91 

TSPAr 32 

ISPAY 93 

ISPAY 94 

ISP AY 95 

T: TSPAY — ‘ 96 - 

ISPAY 97' 

ISPAY 98 

ISPAY 99 

rsPAY nro 

ISPAY 101 

ISPAY 102 

ISPAY 103 

TSPAY XOtf 

ISPAY 105 



c 

c 

c 


2C 


c 

c 

c 


. Elf''flAffiWDNl.NX 

, - j: A U S E , .S A ID N„,A I . T I.M E . +. I p . . +„GlO.II_tL( I_K ) _ j:„ •AXJ ^ 

•REMOVE PAYLOAD FROM LOADING QUEUE . 

15 CAUL DRbPCtdKjIOgB) _ __1 .• 

17 'LOOP ■ • ■ ' 

19 IF TRIG EQ.O, WRITE ON 6 ' 

^FORMAT (S5,* zziz tiztz"iz.tzz “ 

ri T ■ N L ?r OR‘3 ) " =“ 0 ' " T“ 

RETURN 

LET DUMMY = 0 ■ 

IF TRIG NE 0, RETURN 

' •• LET' TE ="TIME' ' " ' “ . " ' 

LET I = DPART (TE) 

LET J = HPART (TE) 4- . l 
LET.K = MPART (TE) + 1 

"■ ■WRrTE"OIT”S7r ISEPS 

FORMAT (*0 »,l3,*.*,I2*.»d2.S&3tTSEPS 

RETURN 
ENO 

■" ■SU3'R0UTINE'TSVEH(WGfl“,VTGHD'N)" ' ' 


' • - 'Sj.'J'' 


♦I3t* EXPENDED*) 


{IPS? 

ISPAY 
'IS PAT" 
ISPAY 
ISPAY ^ 
ISPAY 
“TISPIAT" 
I, SPAY 
ISPAY 
• ISPAY ■ 
■" rS PAT" 
ISPAY 
ISPAY 
ISPAY 
-ISPAY" 
ISPAY. 
ISPAY 
ISPAY 
“ISPAY- 
ISRAY 
ISPAY 
ISPAY 


m 

IQS 


■T(T9 — 
110 
111 
112 

~TI3~ 

114 . 

115 - 

-116, 

- — 

118 
119 
•120 
'1-21— • 
122 
123 
. 124 
"IPS — 
126 

127 

128 


COLLECT STATISTICS ON VEHICLE UNAVAILABILITY 


GO TO 50 


50 


"C" 

C 

c 

c 

c 

c 


5 


■i:et'set‘ex“=“o 

IF MQ GT 0, GO--'.TQ 50 
IF ISEPS EQ 0, GO TO 50 
IF EXPV (RQSEP(IORB)) EO 0 

let SEP'E'X”=' 1 

GO TO 180 
LET DUMMY ? 0 

DO TO 5, FOR I=(l)(4) „ ___ 

■ “GO T 0 ■ ( i V2', 3Tzn , I ■ ' 

IF ISHUT NE G, GO TO 6 
GO TO 5 

IF ITU6 NE 0. GO TO 6 
'Go”ro”5 • “T-'- 
IF ISEPS NE Of GO TO 6 
GO TO 5 • • 

IF IPAD EQ 0 , GO TO 5 ' _ 

I F V D ATETI ) ■ ‘E Q~- 0 i" ""G 0 'TO ' 5 " 

let VOATE(I) = VOATE(I) *• TIME 
IF VOATEd) LT 0., GO TO & 

LET VTD(I> = VTD(I) + VOATEd) 

'IF" VDATETIl "GT 'XTD CUT LET "XTDT T) 
IF VOATEd) LT MTO(I>, LET MTOd) 
LET VOATEd) =0. 

LOOP 


* 

•--“TSTEH” 

ISVEH 
ISVEH 
■ ISVEH.r. 

3 > , 

•4 

5 . ' 

' 

" . rSTEH — 
ISVEH 
ISVEH 
ISVEH 

t ^ 

8 "rJ 

9 » 


ISVEH 

ISVEH 

ISVEH 

dSVER- 

ISVEH 

ISVEH 

ISVEH 


11 
12 , 
13 



15 

16 
17 


= VOATETir 
= VOATEd) 


SET UP EVENT SEQUENCE FOR VEHICLES 
TO 3EC0ME AVAILABLE AT A LATER TIME 


' SHUTTLE 


TSVEH 

“IF- 

, ISVEH 

19 

ISVEH 

20 , 

ISVEH '"T 

" 21 

TSVEH" 

"22'“ 

ISVEH 

23 

ISVEH 

24 

ISVEH 

25 

— ISVEtt" ■ 

■~26" 

ISVEH 

27 

ISVEH 

28 

ISVEH 

29 

■“•ISVEH 

' 30 — 

ISVEH 

31 

ISVEH . 

32 

ISVEH 

33 

'“ISVEH ' 

"34 

• ISVEH 

35' 





;ocjo , ; ooo 


bIT 

MF ISEPS N.e 0, LET T = TOOWN 
IF TP IT T, LET TP = f 
LET TF = R.YT 

IF ISEPS NE 0» LET TF = 12«/8&4( 
CREATE REFVE 

LET VNANE(REF4»E)" = SHUT " 

LET PMOD (REFVE) = ISHUT 
CAUSE REFVE AT TIME + TP + SREFl 
LET VSHUT(ISHUT) = 0 
TEf r"= TlMt - TIMES + T;' " ' — 
IF I LE G, GO TO 20 
LET SUTFY(I) = SUTFY (I) + 1 
IF ITUG NE 0, GO TO 20 
"UET C'SHOTrro‘RBT'= C'STIUT I rOR'B7“'+' 
LET WSriUTdORB) =. HSHUTdORB) + 
LET CDSUT(I0R3) = COSUT(IOR9) + 
LET WDSUiaORB) = W DSUT (IORB) *■ 


TF = 12«/8&40. 


SREFT 


1. 

WGH 

1 . 

WGHDN 


tr’eft ■ 


IF ITUG EQ Of GO TO 13 
IF EXORedORBr "ME '0, 'G^'TO' 22 
CREATE REFVE 
LET VNAME(REFVE) = TUG 

.L£L.PMO,D.(REFVEJ . =. ITUG. 

CAUSE REFVE AT TIME + TP *■ TREFT + TF 
LET VTUG(ITUG) = 0 
IF I LE 0, GO TO 18 

LEJ_..T.UGF.yiD_=__TUG.FY(I> + 1 . 

IF ISEPS NE D, GO TO 18 
LET EXVEH = EXORBCIORB) 

LET EXORS(IORB) = 0 

I F . .E.X V EH . e Q. D_,_ .Lf X_£.K\L£ iL.=E_.E 1RV_( R.Q.U.PJ. 
IF EXVEH NE 0, LET EXTUG = EXTUG + 1. 
IF EXORBCIORB) NE 0, LET VTUG(ITUG) = 
LET WTUG(IORB) = WTUG(IORB) + WGH 
LET GTUQCIORB) =_CTUG(lORB) <• 1 . „ 

IF EXORBdORB) NE r» G'O TO’ fS" 

LET COTUG(IORB) = CDTUG(IORB) + 1. 

LET WDTUG(IORB) = WDTUGUORB) + WGHDN 


IF EXORBdORB) NE 
LET WTUGdORB) = 
... LET CTUQ CIORB) =_ 
IF EXORBdORB) NE 
LET COTUG(IORB) = 
LET WDTUG(IORB) = 


+ 1 . 

+ WGHDN 


■S"£FS/SCDOTER' 


18 IF ISEPS EQ Ot GO TO 19 
IF SEPEX NE 0, GO TO 180 

r£iTTs~='a‘: 

IF NQ LT 0, LET TS = SEPFT 

CREATE REFVE 

LET VNAHE(REFVE) = SEPS 

LET''P MOO (REFVE) = ISEPS 

CAUSE REFVE AT TIME > TP + FLYT 
» » TS 

LET DUMMY = 0 
■ let VSEFS(ISEdS) =0 

IF SEPEX NE fl, LET VSEPS(ISEPS) =s « 


1 




oonoooooooo. c: ooo 


^eSikiseps) 

IF .Nd LT 0, LET LEXIT(ISEPS) 

IF I L£ 0, GO TO 19 

LET SEPFY(I) = SEPFY(I) H 
LET CSEPS(IORB) = CSEPSdORB) 
LET WSEPS(IORB) = WSEPS(IORB) 
LET CDSEPdORB) = CDSEP ( lORB)' 
LET WDSEP(I0R3) = WDSEP(IORB) 

LAUNCH PAD 


1 • 

WGH 

1 « 

WGHON 


19 IF IPAD EQ 0, GO TO 21 
CREATE REFVE 
LET VNAHE(REFVE) = 

LET PMOD (REFVE) = TP'AD ' 
LET PSAT (REFVE) = lORB 
CAUSE REFVE AT TIME + TP 
LET VPAD(IPAO) = 0 
21 RETORT^' ' 

'/)0 PAD 
ENO 

ENDOGENOUS £V_ENT„L AUNC. 
MANDATORY LAUNCH EVENT 
THIS EVENT OCCURS WITH A 


KPAD 


II 

Is 


PREFT 


ACTUAL LAUNCH SCHEDULED WITH DELAYS.* 


IT SCHEDULES ARRIVAL IN ORBIT, VEHICLE REFURB CYCLE, MODULE AND 

. _SAIELLITE RETRIEVAL WITH RE fURB. .CYCLE 

PREDICT ABORTED LAUNCHES AND LOST PAYLOADS 
LET lEVLA = lEVLA + 1 

■ LET"IC!"=’ LQEV(LAUNC) 

LET MLEV(IQ) = 0 
DESTROY lAUNC 
IF ISAT(IO) EQ 0, RETURN 

L £ T ■ rORB" 0 RBnTTITS'Ar ( ISATTTQTTT ' 

IF ORBQdORB) IS EMPTY, RETURN 
REMOVE IQ FROM ORBQdORB) 

LET LQTIM( IQ) = PRIO RT ITSAT (IS AT (IQ) ) ) . ; 

LET^NL(IORB) '=^0 ^ 

CALL GETVdGO) 

IF WdORB) 6T 0., LET WdORB) = -W(IORB) 

- — iF'TGCT" E Q“ 3^ "GTr-nr-s — 

IF IGO NE 0, GO TO 10 
5 CALL SHIP(0,0) 

RETURN ' ' 

ro TF 'TRIG' NE~TJ-,- G0"T0“12 

LET TE = TIME 
LET I = OPART (TE) 

LET J = HPART (TE) + 1 

" ■‘L'ET'K ■= HPART (TE) + 1' '■ ‘ 

WRITE ON 6,I,J,K 


ISVEH 
ISVEH ■ " 
ISVEH 
ISVEH 
ISVEH 
' ISVEH-- 
ISVEH 
ISVEH 
ISVEH 
-ISVEH • • 
ISVEH 
ISVEH 
ISVEH 

"ISVEH 

ISVEH 

ISVEH 

ISVEH 

' ISVEH" 

ISVEH 
ISVEH 
LAUNC 
“L-ATJNC”- 
LAUNC 
LAUNC 
LAUNC 
“ "L-miNC — 
LAUNC 
LAUNC 
LAUNC 
T. AUNC 
LAUNC 
LAUNC 
LAUNC 
■ LAUNC — 
LAUNC 
LAUNC 
LAUNC 

"X AtJ-NC 

LAUNC 

LAUNC. 

LAUNC 

-trAUHC 

LAUNC 

LAUNC 

LAUNC 

• -LAUHC- 

LAUNC 

LAUNC 

LAUNC 

-“tA-UNC 

LAUNC 
LAUNC 
LAUNC 
-L-A UNC 
LAUNC 



OOO ooo OOO ■ OOO! ooo 


^pgPp(S5, 12,*.*, 12, S6G, ’^PAYLOAD DUE TO GO 

i2„L£T CVA(IGO) = CVA{IGO> + 1. 

LET VDiTTEaGO) '= VDArEdGCf) TIHE 

RETURN 

END 

SUBROUTINE LOAT __ 


- NO 


LOAD DATA SUBROUTINE 


input dATA*^/) 


_WRITE ON 6 
" ' P0^RtWTT>l 
LET IRFIG = 0 
CALL LOVEH(IRFLG) 

CALL_LOOR_B (IRFLG) 

" CALL LDHODtlRPL“G') ~ 

CALL LnSATdRFLG) 

CALL LOSYS(IRFLG) 

G.ALU-.L0SC.H(IRFLG1 .. . 

CALL LOME(IRFLG) 

CALL LDPUR. 

IF IRFLG EQ 0, RETURN 
WRITE ON 6 

F0R"MAT(*i] — - RUN STOPPED OOE TO OATA' ERROR 

STOP 
ENO . 

„_5Ua80IJIJNE..L.ayEJISFLG). _ , . 

MISSION EQUIPMENT UPGRADE INPUT ROUTINE 
DIME.NSIOjl IAt5) ,A (A) 

WRITE'ON- 6 ■ 

FORMATC* ME UPGRADE SCHEDULES INPUT ♦) 

load MISSION EQUIPMENT _UPGRADE SCHEDULE_ 


-*)■ 


100 


READ FROM 5 ,IA (1) , lA (2) , lA ( 3) , IA< A) , B,IA (5) 
FORMAK A6,IA,A6,IA,M4.2.2,A6) 

PRINT SCHEDULES ’ ’ 


WRITE ON 6,IA(1) ,IA(2) ,IA(3>,IA(4) 
FORMAT(S10,A6,.I&,S3,/ ■ "■ ' 


Cl jiMvo/jiAVH, ,3,IA(5) 
, A6,I6,S3,M4.2.2,S3, A6) 
r'3‘LANKt "G-O TO 2 OF’ ' ' 


110 


IF IA(1) TQ' 

LET MEOLO = 0 
LET MENEW = 0 
00_TO llOj FOR I=T1) (MITA8) 

TF TA a 5 ■ E (T'MTOETrr ptTT' tTEOn)'— I ■■ ■ 
IF IA(5J EQ MNAME(I), LET MENEW = I 
LOOP 

..I.F__ME.OLO 4_.M£NEW.NE_„0,_£Q. Tp_. il.5_ 

ERROR DETECTED 


111 WRITE ON & 

FORMAK* SAD' HE OATA”-' 
LET RTFLG = 1 


ENTRY PTEJECTED-*) 


CLE OR yyjjg 

u 

LAUNC 

39 

- "LAU-NC 

“ 4Tr"" 

LAUNC 

41 

LAUNC 

42 

LDAT 

2 

CTAT- 

3 • " " ■■ 

LDAT 

4 

LOAT 

5 

LDAT 

6 

" CDAT~" 

LDAT 

8 

LDAT 

9 

LOAT 

10 

-LDAT 

ll 

LOAT . 

12 

LDAT 

13 

LOAT 

14 

■ “LtJAT ■■ 

IS 

LDAT 

16 

LDAT 

17 

LOAT 

18 

•• " -L’DAT 

“19“” ; 

LOAT 

20 

LOAT 

21 

LOME . 

2 

LtTHE~ 

3 

LOME 

4 t!o 

LOME 

5 o 

LOME 

6 ' 

LUME 

? 

LOME 

fi 

LOME 

9 

LOME 

10 . ... 

-- - copiE — "" 

ll 

LOME 

12 

LOME 

13 

LOME 

14 

• ""lOMe" ~ 

l5 - 

LOME 

16 

LONE 

17 

LOME 

18 

LLMIt 

19 

LOME 

20 

LDME 

21 

LOME 

22 

^ CDHE“ 

^3 '■ , ‘ 

LDME 

24 

LOME 

25 

LOME 

26 

"LOME 

27 

LOME 

28 

LOME 

29 

LOME 

30 

luMe 

31 . . 

LOME 

32 
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115 fiStii^MEOLD) NE ME, GO TO 111 
IF MCLAS(MENEW) NE ME, GO TO 111 

-• D'O ' TO-igO', TOR r=TlTlSTST8T 

IF IA<1) NE SYNAMd), GO TO 120 
LET ISY = I 
GO TO 125 

■”iT0“rcro'p - — 

GO TO 111 

125 IF FSAT(ISY) EQ 0, 60 TO 111 . 

LE T IS Y = FSAT(ISY)+IA<2) - 1 

~ ■ ■ TF"'M0U^ TSY ) ~TS~ THP-TT,' -G'Q "T0~ ilT ’ 

DO TO 130, FOR ALL MODSY IN MOO(ISY) 

IF NOMOO<MODSY) EQ MEOLD, LET IA<L) = 

EQ 0,. GO. TO 135 

1301.OOP - - - 

GO TO 111 


IA(4) - 


..SAME ME UPGRADE 


MENEW 


J5 CREATE MESET 

LET PSAT(MESET) = ISY 

LET PMOD(MESET) = NOMOO (MODSY) 

LET ■■ MEDT( H£5Er)= 3 ’ ‘ ' 

LET NOMOO(MESET) = MENEW 
FILE MESET IN MES 
GO TO 100 

}0' RETURN ■ ■ '■ 

ME 

END 

SUBROUTINE LOMOOCIRFLG) _ 

MODULE INPUT ROUTINE 
READ FROM 5, NUMMOD,FAC T 

■' FORflATdStDl.Sl 

IF NUMMOO LE MITA3, GO TO 5 
WRITE ON 6, NUMMOO, MITAB 

FORMAK* ERROR - NUMBER OF MODULES I NPUT (* , I 6 , * ) EXCEEDS CAPACIT' 

» d ; 16, • — 

LET IRFLG = 1 
5 WRITE ON 6, NUMMOO 

FORMAT (Iil,» MODULES INPUT*/* NAME ALPHA F BETA F 

“*■ r TTHE" ALPHA' W ■ "BETA W WEIGHT VOLUME CL‘ASS*r 


00 TO IG, FOR I=(l) ( NUMMOO) 
LOAD MODULE DATA 


ALPHA F BETA F 
"VOLUME CL‘ASS*r 


READ FROM 5, MNAME(I) 

* , ALPF(I) ,BETAF(I) , T TFMO (I ) , MOOWT ( I ) ,MOVOL(I) , 

* MCLAS(I) 

*,'ALPwn)VB'ErAW'(i) ‘ “ •" 

*,R, TAU 

FORMAT < A6, D6. 2,02. 2, 03,05,0 3. i,A6, 05. 2, 02.2,01,02. 2) 
IF ALPF(I) NE 0., GO TO 7 

IF R EQ 0'., GO TO 7 ' ' " ’ ----- 

LET BETAFCI) = 1. 


mi 

LOME 

“ TOME 

LOME 

LOME 

LOME 

— fOH£— - 
LDME^^V 
LOME' 
LOME 

■" •L'DME'"'"' 
LOME 
LOME 
LOME 

■ “ lume: — 

LOME 

LOME 

LOME 

“XT3TIE' ■' 
LOME 
LOME 
LOME 

— irtJME — 
LOME 
LOME 
LO ME 

LOME 

LOME 

LDMOO 

■ ‘LOW 00 — 
LDMOO 
LDMOD 
LDMOO 

"■'lOMOO-- 

LDMOO 

LDMOD 

Y LDMOO 
- COMOO- • 
LDMOO 
LDMOD 
L DMOO 
COTTOO 
LDMOD 
LDMOO 
LOMOO 
LDMOO — 
LOMOO 
LOMOO 
LDMOD 

— LTJHOO — 
LDMOD 
LOMOO 
LDMOO 
-LOMOO — 
LDMOO 
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7 ^EQ =' FACT»ALPF(,I) 

_ IF BETAWd) EQ 5.j LET BETAW(I) = 1. 

IF TTFMOay Ea O”., L'ET"TTFFlD(IT = .5»ALPF(ir''‘ 

PRINT MODULE DATA 


^RTr£~ON '6 ;mh ME“(1 ) VArP Frir7SETAFTrT;TTF>1D'( irrKLP^ { IT7 BETA-RTITT 
» MODWTd) .MDVOL(I) ,HCLASa) 

F0RMAT(S5, A6,S4,707.2,SA,A6) 

,.i.o_.L_oo.p. . : r..:..-' > • 

RETURN 

END 

SUBROUTINE LOORBdRFLG) 


LOAD ORBIT” DATA " - - - - 

READ FROM 5,N0R3 

„F ORMAJLLIi) L. 

• IF NORB LE NORSS,. GO TO 1 
WRITE ON 6*N0R8,N0R8S 

F0RMAT{» ERROR - NUMBER OF ORBITS I NPUT(* ,16 t*) EXCEEDS CAPACITYC 

^let ^Irflg ”T ^ ^ 

I WRITE^ON 67n0R8' ' ' ' ' =’'" 

, FORMAKla,* ORBITS -INPUT*) ' 

WRITE ON’ 6 - ' ■ • 

FO^MAT'r*" "HAWE ’DV: PERTOTI — R’A" 

* SHUTTLE OVi .PADS*). 

DO. TO 10, FOR I=(1)(N0R3) 

READ FROM 5,0RBI0(I) ,0R8DY{I) . ORBPD ( I ) ♦ 0R8RA ( I) ,0R3VC(I) ,RQUP(I) 


bdmE 

L.OMOO ■' 

”TirHOTr~: 

LDMOD 
LOMOO 
LOMOO 
~XDT10U~” 
LDMOD 
LOMOO * 
LDMOD. 
“r0MW-“ 
LDMOD 
LD0R8 » 
LOORB 
■t:TroRB‘“ 
LDORB, 
LD0R8 . 
LDORB • 
~CD'01?B 
LDORB 
LOORB 
LDORB 


31 

-3Z~ 

33 

3A 

35 

”T6"~ 

37>, 

38 

. 39 ? 
“-inj— 

2 

3 

'“Trr 
■5 .i 

6 

.7.. 
— IT' 

9 

10 

11 


VO- UPPER ~“SEP3" 


R'D SEP ( I r,RQ‘50T{XT ,'nVl CD' 
illPADKDvNPAOZ-d) 
r0?MAT-(A6,4D5.1i3A6,D5. 1,213) 

IF NPADl(I) EQ 0, LET NPADKI) = 1 ‘ . 

2F'~'NPAOiai”“GT iTP‘AU'rXET ■NPAOT(ir'~=“NPinr ' ~ 

IF NPADEd) EQ 0, LET NPAD2(I) = NPAO ■ 

IF NPA02d) 6T NPAO, LET NPAOZd) = NPAO . . 

WRITE ON 6 ,OR8IO(I) ,0R3O\/( I) ,0R3F0(I)_,0R3RAa) ,0R3VC(I) ,RQUP(I) 


■IRITE ON 6 ,OR8IO(I) ,0R3O\/( I) 

RQSEPd)",RQS'UT(I) ,OVf(I) 

*, NPADKI) ,NPAn2(I) . 

F0RMAT(S3,A6,4D7.1,S1, A6,S1,A6,S1,A6,D7.1,S4, 

■ CHECK ' 0 N WPER-'SrAGE” 

LET J = 0 

lF.iiQUP.XIJ ...E Q. -8X.A NKj__G 0 TO...U ^ 

DO TO 5, FOR J = (inNVEMJ^ 

IF RQUP(I) EQ NAMEV(J), GO TO 9 . 

. 5 LOOP , 

L£I.,JRF.LG 5 .1 ■_ 

WRITE ON 6 

FORMAT (* NO SUCH UPPER STAGE*) ' 

9 LET RQUP(I) = J ■ 


LDORB . 
LDORB - 
LOORB ., 
XOroiTBr — ” 
LDORB 
LDORB 
LOORB .. ■ 

13'^ 

14'^ 

15 

16 

17 

18 
19 

■fOORR 

:2trr 

LDORB. - 

• 21 

LOORB..- • 

22 

LDORB- 

. 23.. 

‘CUGRB. - ■ ■■ 

"24“ 

LDORB 

. 25 

LDORB 

26 

LOORB • 

27 




213) 


'CHEOK 'OIF'SEPS’ VEtTICCF" 


" LDDRB~“ 
L00R8 
LOORB 
LDORB 
" LDORB"" 
LOORB 
LOORB 
LOORB 
— LDDRff ' " 
LOORB 
LOORB 
- LDORB ' ■ 
— LDDRB — 
LDORB 
LDORB 
LDORB 


.DtrRBT 

LOORB 


-'2S': 

29 

30 

31 

~ — 3Z“ 

33 

34 

35 

• 3b ’ : 

II':' 

4T)~ 

41 

42 

43 

— — ijiTF- 
. - 45'*. 

' • ; 


^22 



kpRtiiEP(I) EQ BLANK, GO TO k 


C 

_C 

C 


c 

c 

c 


C UU (U t-UK J=lll 

~'"rF'llQS'£P(T)' EQ‘'NAHEVTJ')', GO"TO -A"— ' ‘ 

3 LOOP 

LET IRFLG = 1 
■ _ WRIJE ON 6 

ToRFIAr(* '‘NO 'SUCIH SEPS' VEH ICL'E“rCfUNO'/»). 

it LET RaSEP(I) = J , • , ' 

■ I-F NAMEV<J) NE SEPS, ,LET CHEM>'’= 1 ■ 

.... IF CHEM NE 0, CALL L OSEP ( WO\/ ( J) , PAYL V { J) , WCONV( J) , ISPV ( J) 

* WP NUV ( J ) , EXPV ( Jr, DA YSV CJ ) ,"REFT V '( JI )' ‘ 

LET SEPEX = EXPV(J) 

. -_.C11EC.!<: QN s,huj:.tle....v.ehi.cle_ . 

-LET' J = 0 ■ 

6 00 TO 7, FOR J=(1)(NV£H) 

.... IF ROSUT(I) EQ NAMEV(J)j GO TO 8 

7 |_oop - - - 

LET IRFLG = 1 

WRITE ON 6 . • 

FORMAT (* NO SUCH SHUTTtE FOUND *) 

‘8"LET R'QSUT{ir ■=' 

10 LOOP 

return ■ ‘ . 

END " ' ' " 

■ SUE ROUTT ME LDPUR 

PURGE MEMORY OF UNUSED MODULES • 






SYNOPSIS OF INPUTS) 


79 


“7'8 

80 


WRITE ON '6 
FORMAT(-»i 
LET K = 0 
LET M = 0 

OO'TO 80'; FOR 'li(l) rSTSTB)" ' 

LET NSYLF(I) = 1000. 

LET J = 0 

IF FSAT(I) EQ 0, GO TO 30 ___ 

■T'0"7'9V Tim‘”L= { FSTTFCIT)' ( C SATTITT 
IF MARKS(L) EQ 0, GO TO 79 
LET MARKSC'U; = O'.,;- 

m%st it sTflryT"' = ■ ^ 

LET MOCNT(NOMOD(MOSAT) ) 

LOOP 

IF J NE Oj GO TO 73 



-tff 


A-4, 


= 1, FOR ALL MOSAT IN MDSdTSATTU) 


A6) 


xr u wn. u, to u lu ro 

WRITE ■oN iVSVNa’M'(r) ■ 

FORMAT (» UNUSED SYSTEM t 
LET SYNAM(I) = 0 
GO TO 80 

CET“K“="K' + i 

LET M = H + LSAT(I) - FSATdJ 
LOOP 

LET I = M/4 

TF:T»4 NE H, LET x--£ " 
LET M = i*4 • 


i- 1 


mil 

LOORB 

' LODRB 

LOORB 

LDORB 

LDO RB 

“CD ORB 

, LO.ORB 
:LD0RB''' 
■LOORB 

~CODRF 

LOORB 

LDORB 

LOORB 

CDDIRB 

LOORB ' ' 
LOORB. 
LOORB - 

“LlfDRB 

-LDORB.- 
LOORB 
•LOORB. 
TTIDDRB:^/ ™ 
LDORB 
-LDORB-/... . 
/LOORB:;:,,/ 

“CDPUR^^^^ 

LDPUR • 
LDPUR 
LDPUR 
‘LDPUR 
LDPUR- 
LDPUR , 
LDPUR 

■rOFUR 

LOPUR 

LOPUR 

LDPUR 

-rOPDR 

LOPUR'. 

•; LOPUR 
t LOPUR-/.;-- 

■~rDPDR: 

LDPUR 

LDPUR 

LDP.UR 

"L'DPUR — ’■ 
LDPUR 
LOPUR 
LDPUR 

■ LOPUR- 

LDPUR 

LDPUR 

LDPUR 

—LOPUR- 

LDPUR 


kr .. 

48 

"‘49 

50 

51 

52 

“S3 : 

54 , 

55'-"- . 

' 58 

■37 

56 

59 

.60 

81 "~T‘, 
.62 ' ^ 

63 

• 64 . 

"F5 

66 

67 

68 

“63- “ir”/ 

3 

4 

5. 

— sr: — r- 
'/7 -i ^.x,: 

. 8 • '-'A' 

9 


( 

tto 

w 

I 


— rr 

11 
12 
. 13 

v45,w 

■ 

' 17. 
■“XT 

19 

20 
21 

““22- 
. 23 

24 

25 

— 26‘ 

27 

28 
29 

- “30 • 
31 







*wkirESN’6i'K,sTsra' " 

FOi?MAT(» PR08LEH USED 
LET K=0 


SATELLITE/SYSTEM POSITIONS OUT OF AVA 
SYSTEMS OUT OF AVAILABLE *,I3) 


D.Q. JD_ $3 , FJ35 . I = ( .1 ) ..{ 5 1 T A 8 

IF NMODS(I) NE 0» LET K = K+1 
IF NMOOSa) NE Ot GO TO 85 
IF MDS(I) IS EMPTY, GO TO 34 
_ - DO. TO -33, XOR ALL T I N MO_S ( I) . 
REMOVE FIRST HOSAT FROfT 110^(1) 

DESTROY MDSAT 

83 LOOP 

84 IF SNAME{I3_E(1 Oj GO TO 85 

WRITE ON" ■o iSN’AMEaT" " “ " 

FORMAT<» UNUSED SATELLITE - * i ^6) 

LET SNAME(I) = 0 

85 LOOP 

WRITE 0N'6’,*K',SITA'8' 

F0RMAT{» PROBLEM USED 
LET K = 0 

00 TO 9C, FOR I=(l)(MITABi 
• IF“ffNAME:a) ECl o; GO TO 90"" 

IF MDGNT(I) NE 0, LET K = K 
IF MDCNT(I) EQ Q, WRITE ON 6,MNAME(I) 
FORMAT(» UNUSED MODULE - *,A6) 

rF”>fDCTT"(:i) EQ 0r~rET~FrNA-METTr"^'TJ ’ 

LET MOCNTd) = 0 
90 LOOP 

DO TO 6, FOR I={1) (SY0R3) 
iF'ir'SAT rnTQ” BL’ANr, GO TO '6 ■ 

IF ITSAKI) EQ.O, GO TO 6 
IF MDS(ITSATa)) IS EMPTY, GO TO 6 

bo^'TO 4, °F3R’'ACC"~HnSAT rN“H'D^rrsA'Ta) ) 


SATELLITES OUT OF AVAILABLE *,I3) 


mm 

LDPUR 
"XD?UR"“ 
LDPUR 
• LDPUR 
LDPUR 
"TDPUR " 
LDPUR 
LDPUR 
LDPUR 
■' L DTOR— 
LDPUR 
LDPUR 

LDPUR 

-"LirpaR^ 
LDPUR 
LDPUR 
LDPUR 
•TIITUR"" 
LDPUR 
LDPUR 
LDPUR 


34 

■ 33 " 

36 

37 

38 
39 " 

40 

41 

42 


Vi~ 

44 

45 

46 

-jf7~ 

48 

49 

50 
■ 51 " 

52 

53 

54 


+ 1 


CREATE MOOSY 
LET NOMOO(MODSY) = 

- U£T _NUM . { MQ.OSY.L. = 

LET SUMNU(MODSY) = 

LET MAXNU(MOOSY) = 

LET MINNU(HODSY) = 

.. ..LET LOAD.FCHOOSYT. ’= 

LET SUMLFCMODSY) = 

LET MAXLFIMODSY) = 

LET MINLF( MOOSY) = 

.. _ L.E.T_ liSlJ^T i M.005Y ) 5 
LET NRU (MOnSYY = 

LET J = J + 1 
LET MNO (MOOSY) - J 
FILE MODSY IN MOO(I) 

■ 4 “ CQO'P' ■ 

6 LOOP 

WRITE ON 6,K,MITA3 
FORMAT(* PROBLEM USED 

■ ■R'ETUR'N 

END 


NOMOD(MOSAT) 

5 

0 ■ ' 

Q 

500 

A . „ 

0 

Q 

iOOO 

"N'ROTMO'S'AT) “■ 


“tUPOR-"“ 

LDPUR: 

LDPUR 

LDPUR 

55 - 

56 

57 

58 

“COFUR"" 

" ~5g " 

LDPUR 

60 

LDPUR 

61 

LDPUR 

62 

■ LDPUR~ 

sj- 

■ LDPUR 

64' 

LDPUR 

65 

LDPUR 

66 

■ "LDPUR- ” 

67“ 

LDPUR 

68 

LDPUR 

69 

LDPUR 

70 

. - — y a — 


*,I3,* MODULES OUT OF AVAILABLE *,I3) 


LDPUR 
LDPUR 
LDPUR 
LTFUR-* 
LDPUR 
LDPUR 
LDPUR 
"LDPTJR-* 
LDPUR 
LDPUR 
LDPUR 
COPUR" 
LOP UR 
LDPUR 
LDPUR 
LDPUR- 
LOPUR 


72 

73 

74 


I 

I 


T5" 

76 

77 

78 

79 

80 

31 

82 

.. 

84 

85 
•86 

- S7- — 

83 



c 

a 

c 


SUBi<OUTIN£ LDSAFdRFLG) 

. SAJ EL L I J E.. I.NEU T . R 0 UXINE, 1 


iBm 


c 

c 

c 


c 

c 

c 


c 

G 

-C” 


•Z 

c 

■c 

G 


C‘ 

G 


DIMENSION IA(7) ,M0DUL(7) 

READ FROM 5*NUMSAT 

. .J^.0.8MAXa.3J. 

IF NUMSAT LE SITA3, GO .TO 
WRITE’ ON 6, NUMSAT, SITAB 
FORMAT (* ERROR- NUMBER 

'-lITY(»iI6-*) ») 

■ LET IRFLG = 1 
6 WRITE ON 6, NUMSAT 

F0RMAT(/S1,I1Q,* SATELLITES 
»R INC ORBIT MOD 

'DO rO~2T", ■ “‘FOR’ T= ( IF ( NUffSAT)' ‘ 
LET KL = 0 • 

LOAD SATELLITE DATA 


LDSAT 

“LID'S AT — 
LOSAT 
LDSAT 

LOSAT 

TtrSTHT" 
LOSATr„ s 

OF SATELLITES .INPUTT 16,,*) E)(CEEOS C,APAC LDSAT:^;^ 

- t' L-DSAT-''.’ 

, Lusn — 

LOSAT 
LDSAT 
LDSAT 
LDSAT 


INPUT*/* 

SAT 


NAME 
TT 




WT 

POLICY SORT 


VOL PRIO 
EXWT*) 


OA,/li,DA,05) 
) 


READ FROM 5, SNAME ( I) ,S HT (I > , SVOL ( 1> 

* PRI0R(I),INCL(I),0R3IT{I>,N0 
*,TTSAT(I) tPOLDNd) 

*', SO RT E ( I )', EX 'vn- d F r 
FORMATC A6,S3,05,D2.2,204,A6,S3L,I5, 

IF EXWT(I) EQ 0., LET EXWTd)=SWT<i 

IF TTSAT(I) EQ 0., LET TTSATd)=lD. • • . 

■ IF FRlOR'd) ' rO'D:, LET'-PRIORTril “6 •“ 

PRINT SATELLITE DATA 

W RI TE ■ 0 N"^ 6',“ SKA ME-TX)", S'KT<ID ,'SVOrnT;-PRTDRTXrnT4CXrX)TORBTTarTN tT' 
*,TTSAT(I)’,POLON(I) 

*,SORTE( I) ,EXWTd); 

FORMAT (S2,A6.S1,4D6.S8,A6,I5.,S7,D6,I8,D6.»06)‘ . 
"L'ET“%RTE'<ir"=“Sl3RTE'’{IT73'60r;; ' • 

DO TO 1, FOR J=(1)(N0R3S) 

IF ORBIT d) N£ OR3ID(J), GO TO 1 . . ' 

,_LEX ORBIT(..U r._3.. 

. LOOP * ' • . 

ERROR DETECTED ^ ' . V--' ' . 


LET IRFLG = i 
WRITE ON 6- 

FORMAT(* ERROR- UNKNOWN ORBIT 
LET X i-ri-- 

READ MODULE LIST. FOR SATELLITE 


*) 


"~T5 E A D F R'0-!T“5”, M 0 DUU ( UTXrA ( J)' ,!! ODUr f J+ 

* MODULI J+3) ,IA(J + 3> , MOGUL (J* 

* MOOUL (J+6) ,IA( J+6) • 

FORMATISIO ,A6, A4, A6, A4 , A6, A4, A6 , A4, A6 , A4 , A6 , A4, A6 , A4) 


I ) “,I A t J*XT"lfMDITUL"fU42 JTlA'tU TT': 
4) ,IA<J*4) ,MODUL(J*5) ,IA(J*5.) , 


PRINT MODULE LIST 


LDSAT::; 
LOSAT / 
LOSAT 

— ETDSAr 

LDSAT 
LDSAT 
LDSAT 
""rUSAT 
LOSpv 
. ' LOSATV,: 

' LOSAT ". 
"'■TtrsTrr 
LOSAT 
LOSAT 
LO SAT 
— LOSAT": 
LOS at: 

LDSAT , 
■LDS AT 
— LOSAT- 
LDSAT 
LDSAT 
LDSAT 
-“CDSAT- 
LOSAT 
LDSAT 
^ LDSAT^^^^ 
'“LOSAT 
LDSAT. 
LOSAT 
LOSAT, 

CO SAT 
LOSAT 
LDSAT 
LDSAT 
'LtrSAT' 
LOSAT 
LDSAT 
LDSAT 
LDSAT 
LOSAT 




OOO >000 , 000 C- 1 000 


15 


TT 

C 

c 


WRITE ON 6, MOGUL (J) , iA (J) , MOGUL { J+l> ,IA(J+i) , MOGUL ( J+ 2) , I A ( J+2) , 

. * MOGUL (J + 3) «IA<J»3) »MOOUL(J»A) «HOO UL(J»5) >IA<J+5) » 

* MOGUL (J+6) ,IA(J+6') 

FORMATtSlQ ,14A6) 

IF MOGUL (1) NE LAST, GO TO 15 

,L£I- NO .= .KJU 

GO TO 25 

LET DUMMY = C 

00. TO 10, FOR J=(l> t7) 

IF MOGUL (J) EQ BLANK, GO TO 10 

* 

GO TO 20, FOR L=(1)(MITAB) 

IF MOGUL (J> £Q MNAME(L), GO TO 5 

20 L OO? ^ 

ERROR GETECTEO 


hdm 

LDSAT 
■ ‘"LUSAT' 
LDSAT 
LDSAT 
LDSAT 
— CTJ^TfT" 
LDSAT 
LOSAT 
LDSAT 
"~TTTSAT“ 
LDSAT 
LDSAT 
LOSAT 
ans'AT 


61 

GZ~ 

63 

64 

65 
"66" 

67 

68 
69 
7TT 

71 

72 

73 
TV 


WRITE ON 6j,M00UL(J) 

"Format <S' 3,*“ERROR” "rOO'OCE - ■*,A67 »‘ = not TOUND' IV "module TA-aLV 

LET IRFL6 = 1 
GO TO iC 

PUT "HOffULE IN SET HDS '3'£LONGING~TO SAT-ELLITE I , 

5 CREATE MOSAT" ’ 

CALL C0.N(IA<J),K) , 

LET NRU(MOSAT) = K 
LET NOMOO(MOSAT) = L 
FILE MDSAT IN MDS{I) 

10 LOOP _ _____ __ 

IF 'NO EQ 'OV 60 TO '2 

IF KL LT NO, GO TO 2 
IF <L EQ NO, GO TO. 25 

LET IRFL G = 1 _ ^ • _ 

WRITE ON 6,N0,KL 

F0RMAT(S3 , Terror in module count - expected found 

25 loop 
RETURN 

LAST" LAST"" ' ' " ' 

END 

SUBROUTINE LDSCH (IRFLG) 

SATELLITE"'SCHEDUL£ INPUT RODTrNE ' 

DIMENSION IA (4) ,A (4) ,13(4) 

WRITE ON 6 

format SlCREOULESr-TNPUT^J : " 

LOAD SCHEDULES 

”60“RE'/nrFRO"fr"5',rAaT ,IS( 1 ) ,A(n7rST-2) nBf 2 ) ,AT 2T VIA-fl)7iaT-3TTA(3rr 
♦IA(4) ,IB(4) , A(4) 

FOSMATdi, A6,S3,D4.5,I1,A6,S3,04.5,I1, A6,S3,D4.5,I1,A6,S3,D4.5) 

■ ‘ PRINT SCHEDULES " 


LDSAT 

75 

LOSAT 

76 

LOSAT 

77 

r CDS AT 

78 

LOSAT 

79 

LOSAT 

80 

LOSAT 

81 

■■ "LDSAT 

32 

LDSAT 

83 

LDSAT 

84 

LOSAT 

85 

~ CDS A T" " 

3B 

LOSAT 

87 ■ 

LDSAT 

88 • 

LOSAT 

39 

"CDSIAT 

9IT": 

LOSAT 

91 

LOSAT 

92 

LOSAT 

93 


"LOSAT 

LOSAT 
LDSAT 
LOSAT 
— LDSAT 
LDSAT 
LDSCH 
LDSCH 
~ LDSUFT" 
LDSCH 
LDSCH 
LDSCH 
"XOSCIT' 


I 

ts) 

O' 


LDSCH 

LDSCH 

LDSCH 

"TTDSUr 

LDSCH 

LDSCH 

LDSCH 

"LTJSCH" 

LDSCH 



c 

c 

c 


C' 

c 

c 


c 

c. 

. 0 : 


G 

c 


C“ 

c 

c 


m »I3( 1) , A(l> ,IA (2) ,I8'(2) I A (2) ,IA(3) ,IB (3) , A.(3) t ' 

’F 0 .M A T { 1 6S 2j.,:AF » Sj! » 0 5,i 1 2^.S_2.» A.6 t-S 3 j 2 , S2 t.A6„» 3jL«-?JL£2j:^ * A.6.. 

■■ »,S3,D'4-,5) ■■ 

IF, -IA(i) £Q G* 30 TO 7 0 

FIND- SYSTEN .ANO_ .SAV E_. NE W SATLLJrJ-I?. LAUNCH IN N EWS . 1_„ 


DO TO 6G, FOR K = (1) (4) 

IF IA(K) EQ 0, GO TO 65 
IF A(K) GT TIMES, GO TO 65 
DO rO 66', FO'R''l^(iy {STSTB1~ 

IF IG(K) NE SYNAM(I)»GO TO 56 
let J = LSAT(I) - FSATdJ + 1 
IF IA(K.) GT J, GO TO 64, 


SCHEDULE INPUT DATA MATCHED WITH PREVIOUS DATA 
LET MARKS(FSATd) -1+IA (K>) =1 • _ 

C'REATE^m'T"' ■ 

LET SCHDT(NEW) = A(K) 

LET SCHSY(NEW) = FSA T ( I ) -1 +I A ( K ) 

FILE MEW _IN NEWS 

” (TO'TO '65' ■■■ “ ■ ■ ■ ’ , 

ERROR OETECTEO 


mm 

LDSCH 

“LDSCH 

LOSCH 

LDSCH 

LDSCH 

'COSCH 

LOSCH 

LDSCH 

LDSCH 

XDS'CR" 

,-LD,SCH 

LOSCH 

LOSCH 

ITD'SCW 

LDSCH 

LDSCH 

LOSCH 

XD’SCH" 

LOSCH 

LDSCH 

LDSCH 

TTTS'CH" 

LDSCH 

LOSCH 

LOSCH 





30 

31 

32 
-“33- 

34 

35 

36 

■- 37 “ 

33 

39 

40 

— 4T- 


'64 ‘LET I?’FL13\= 1 ‘ ■ 

FORMAT?» *^’eRROR’ -^MEMBER MO.»,I3,* IS NOT IN SYSTEM, - »,A6) 

' GQ__LO. o5 

66' LOOP 

ERROR OETECTEO ‘ . 


TTJStrFT 

LDSCH 

LDSCH 

L OSCH 

TUSCTT 

LDSCH 

LDSCH 

LDSCH 


42. 

43 

44 
"W 

46 

47 

48 


I 

ts) 

-vj 

I 


— Lrr xrfl(t=^ 

WRITE ON 6,IB(K) 
F0RMAT(S3,» ERROR 
65 LOOP 

Gro"T0“-cTC :■ 

70 RETURN 

luBROUTINE LOSYS(IRFLG) 


SYSTEM NOT FOUND 


* 


,, A6) 


SYSTEMS INPUT ROUTINE 

READ. FROM 5,NUMSYS 

'"T"OfTMAT (13) ~ 

IF NUMSYS LE STST3, GO TO I • 

FORMATS ^ERROr''^« ’nUMsIr OF SYSTEMS INPUT(»,I6») EXCEEDS CAPACITY ( 

■ ** VI6i " ■ 

LET IRFLG =1 ’ ■ 

t WRITE O.N 5, NUMSYS ’ • „ __ 

FORMAT (/ lit, '‘SYSTEMS INPUT'^/^ NAME . NUP NTOT SYS TT __ SAT. 
'PHASE S'A'T . PHASF' '"5357 ' PH-A'SE-^)' ' “ 


LET J 


0 


LOSCH 

LDSCH 

LOSCH 

■TTO^H- 

LOSCH 

LDSCH 

LDSYS 

trcrsYS- 

LDSYS 

LDSYS 

LOSYS 

X'O'SYS- 

LOSYS 

LDSYS 

LDSYS 

-COSTS" 

LDSYS 

LDSYS 

LDSYS 

"COSYS" 

LDSYS 


TT9r 
50 
■51 ^ 
52 
"5-3“ 

54 

55 

56 
ST- 

59 

59 

?• 


u 

5 

6 

— 7 ,- 

8 

9 

10 

-rr 

12 

13 

.14 

“IS- 

IS 



! oo]o i ooo !ooo ■ : ono 

; I • ! I ' . ' 


B^T^Ps^hirOS, 5=iH(NUMSYS) 

“ L"0A0“S“AmLTTE SYSTrHS':D7STA”- 




READ FROM 5 , SY NAM ( I) .NFUP ( I ) » NO , TTSY S ( I) , 

* ITSAT(J+1) , PHASE (J+i) ,ITSAT{Jf2) , 

’* PHASIK J+D ,ITSATIJf3riPHASF{'J'+"3T"'. ; 

IF NFUPd) LE .0, LET NFUP(I) =1 ' ' ' • 

I F 'NO "TE:“0 V ■ "LH T TTO ■= ' 1 - 

PRINT SATELLITE SYSTEMS DATA 

WRrrE",'ON 'S,SYNAMlI)','NFUP(l) ,N0,TTSYSTIT; 

» ITSAT(J+1) , PHASE (J+1) 

* ,irSAT(J+2) ,PHAS£(J+2) ,ITSAT(J4-3)»PHASE{J4-3) 
FORMA.T{SZ,A6,2.I5j06.2tS4,A6,D6.1,S4jA&»06.1,,SL.A6»D6.i) 

LET NSAT(I) = NO ' ^ ' ■ 

DO TO 2, FOR Ji=(lHNO-3) (3) 

LET J2 = J1 + J - 1 

„ .R.EAJD.. ERHM_5jXTSAT(J,2+.it>3LPHASE(J2 + L) ,ITSAT(J2 + E) ,PHASE(J2 + 5) 

* ,ITSAT{J2+6) ,PHASE{ J2+6f ' ‘ ‘ ~ — 

F0RMAT(S20,A6,S4»O't.5,,A6,S4tOA.5,A'6,S4,D4.5) - ■ 

WRITE ON 6,ITSAT(J2+4) »PHASE(J2+4),ITSAT<J2+5>,PHASE(J2<-5). 

ITS A.T(J2+6) , PHASE (.J2 + 6) • _ _ . 

F0RMAT(S31,A6,i36.1,S4, A6,D6.1,S4, AOjO’ern . - 

2 LOOP _ ■ , ’ 

.FIND S.ATELLITE 


LOS YS . 

LDSYS 
LDSYS 
. LOSYS 
'“ttrSYS~ — 
LDSYS 
L.OSY.S 
LDSYS 

• — tnrsYs 

LDSYS 

LOSYS 

LDSYS 

"“XDSYS'“ ■■ 
LOSYS 
LDSYS 
LOSYS , - 
"rosTs 


: .15;. 

19 

2Q— 

21 

22 

23 

— 

2^5 

. 26 
27 

29 

30 

31 

_ ■ ^2~ 

33 

34 

35 


5 LET J = J + NO 
LET LSAT (I) = J • 

, .00, TO 55, FOR L = <F SAT ( 1) )( LSAT ( I> ) 

IF PHASE (L) Lro;,TET PHASrCCJ"^- PR-fl'S'ETrr f '36'C‘. 

LET A = L 

LET PHASE(L) = PHASE(L) + A/IOOG. 

LET ITSYS(L) = I 

■ -ffo'ro 45, FOR K'= ri'rrsirA'BT 

IF SNAME(K) EQ ITSAT<L), GO TO 50 
45 LOOP , . ■ • , 

i- ■ . ' 

‘ERROR OE'TECT.ED" “■ '■ . 7 

LET IRFLG =1 

WRITE ON 6,ITSAT(L),SYNAM<I) ' 

F0RMAT(S3,* ‘error '"SA rECL it £ f^,A6,»- >jO‘T“FOTrND'rSYSTEH 
GO TO 55 ■ . < 

50 LET ITSAT(L) = K , 

_55_.L00.P.._. . ’ . 

60 LOOP 

RETURN 

END 

su0routine_.loveh.(irflg.)., 

LOAD VEHICLE DATA 


6 S‘ 

tt- 

It 

p.l 




LDSYS 

37 

LDSYS 

38 

LDSYS 

' ,39 

rCTSYS“ 

40 " 

LDSYS.*' 

41 

LOSYS 

42 

LDSYS 

43' ' 

“LDSYS 

44 

LOSYS 

• 45 

LOSYS . 

46 . 

LOSYS 

47 

"~LDSYS ~ 

■— - ' -48 

LDSYS" 

49 

LOSYS 

50 

LDSYS 

51 ■ 


~LDSYST"' 
LDSYS 
LOSYS . 
LDSYS 
'LTTS7S':“ 
LDSYS .. 
LOSYS 
L.0SYS 

“LTTSYS 

LDSYS 
LOSYS 
. LDSYS 
'LD'SYS'”- 
LOSYS 
LOSYS . 
LOSYS 
“LDSYS — 
LDSYS 
LDSYS 
LDVEH 
’LDVEH “ 
•LOVEH 


1 



w -- I > 


c 


c 

c 

c 



mm 

1 


LOVEH 

7 

■* “ ' - . . 

LDVEH 

... g 


LDVEH 

9 

INPUT(*,I6,») EXCEEDS CAPACIT 

LOVEH 

10 


LDVEH 

11 


LOVEH 

"12" 


LDVEH 

13 


LOVEH 

14 


LOVEH 

15 

WOV BOIL WCONV 

LDVEH ■ 

• rer 

IO») 

LDVEH 

17 

LOVEH 

18 


LDVEH 

19 


EDVEH 

2r 


LDVEH 

21 

,WOV (I) ,WPNUV (I) ,WCONV(I) , 

LDVEH 

22 


LOVEH 

23 


LDVEH" ‘ 

■ 24 


LDVEH 

25 

,WDVd) , WPNUVCI) , WCONVd) , 

LDVEH 

26 

LDVEH 

27 


c 

c 

c 


READ FROM 5,N0\/£H 
FORMAT (1 3) 

TF WiQ'EH LE NVEH, GO TO ‘i ' 

WRITE ON 6»NOVEH,NV£H 
FORMAT(* ERROR - NUMBER OF VEHICLES 
»Y 

LET IRFLG =~i' 

L WRITE ON 6,N0VEH 
F0RMAT(I6,» VEHICLES INPUTS) 

WRITE ON 6 

FORMAT (♦ NAME DAY'S IST^' 

* REFT EXP LENGTH NS SOLID 

LOAD ALL VEHI,CLE CAROS 

00 TO 5, FOR I = (i)(NOVEH) 

READ FROM 5, NAMEV ( I) .OAYSV II) ,ISPV( I) 

♦ REFTVd) ,E)<PV (I) ,PAkv (I) 

»,N'STAG<1) ,SOLXO(I) .lOV'CI)' 

F OR MAT ( A 6, 805.1,2 12, A6) 

WRITE ON 6 ,NAMEV(I) tOAYSVd) ,ISPV(I) 

* R£FTV{ I) lEXPV (I) ,PAYLV (I) 

»-NSTAG (I) ,S'0'Ll0(I) ,rOV (I) ' 

‘ - - - ^2I6,S1, A6) 

CALL LOSEP(WDVa) ,PA YL V (I) ,WCONV ( I) ,ISPV(I) 

♦ WPNUV(I) ,EXPV<I) ,DAYSV(I) jREFTV(I) ) 

5 LOO'P ■ . — . 

RETURN 

END 

SUBROUTINE MARKQ 

MARK ALL PAYLOADS FOR LAUNCH IN ORBIT QUEUE lORB 
LET NQ = G 

IF' ORBQdORB) IS EMPTY, RETURN " 

DO TO 5, FOR ALL PAYLO IN ORBQdORB) 

IF LQTIM(PAYLD) GT 3000., RETURN 
LET NQ = NQ + 1 

LFT ILOADCNQ) = PAYLD 

IF NQ EQ IL, RETURN 
5 LOOP 
RETURN 

END - • ~ - 

SUBROUTINE MCMOD 

STATISTICS FOR MODULES 


SNSTAG (I) ,S0LI0(I) ,I 
FOR MAT{S3,A6,8D7.1,2 
IF NAMEV(f) EQ SEPS, 


DO TO 5, 

IF MOCNT(I) 
LET S121(I) 
IF X12ld)- 
IF N12id) 
IF TRIG NE 
IF TRIG EQ 
IF Ni21 d) 
IF NOWAR(I) 


FOR I = (l) (MITA3) 

+ S12KI) EQ G, GO TO i 
= S12i(I} + MOCNTtl) 

LT MDCNTd) , CET‘ )TI2T. d) 

GT MDCNTd) , LET N12KI) = 
TRIGS, GO TO 1 
1, GO TO 1 

EQ X12KI), LET N121d) = 0 
+ S125d) EQ 0, GO TO 2 


= “TOC'NTdy 
= MDCNTd) 


■■LBVEFr" 
LDVEH 
LOVEH 
LDVEH 
■L-DYER — 
LDVEH 
LOVEH 
MARKQ 
-■MARKQ • 
MARKQ 
MARKQ 
MARKQ 
■M-A-RKQ- ■ 
MARKQ 
MARKQ 
MARKQ 
MARKQ 
MARKQ 
MARKQ 
MARKQ 
MARKQ" 
MCMOD 
MCMOD 
MCMOD 
-MCMQD'" 
MCMOO 
MCMOD 
MCMOD 
— MCMOD" ■■ 
MCMOD 
MCMOD 
MCMOD 
"MCMOD-- 
MCMOD 


28 

29 

30 

31 
"32 

33 

34 
2 

3 

4 

5 

6 
7' 
B 
9 

10 

11 

12 

13 

14 

2 

3 

•4 

- 5- 

6 

7 

8 
•9 

10 

11 

12 

13 

14 


I 

Cn^ 

00 

I 



iFxmm>LT tEnmm = NOWAR(I) 


IF N125(I> 
IF TRIG NE ■ 
IF TRIG EQ 
IF N12£:{I) 
IF NOFAL(I) 
LET' S129(I) 
IF Xi29(I) 
IF N129(I) 
IF TRIG NE 
IF TRIG EQ 
IF N129(I) 
LOOP 
RETURN 
ENO 

SUBROUTINE 


GT NOWAR(I) , LET N125(I) 
TRIGS, 'GO TO 2 
1, GO TO 2 

EQ X125(X) , LET N125 (I) = 
S129(I) EQ 0, GO TO 5 
= S129(I) +'NOFAL(I) 


N125(I) = NOWARCI) 


= S129(I) + 
LT MOFAL(I) , 
GT NOFAL( li , 
TRIGS, GO TO 
1, 60 TO 5 
EQ X129(I), 


iL(I) 
Xi29(I) 
N129( i> 


N129(I) 


= NOFAL(I) 
= NOFAL(I) 


STATISTICS 


MCSAT 

. SATELLITES 


00 TO 3, FOR I=(l) (SY0R3) 

IF HOD(I) IS EMPTY, GO TO 3 
LET S227(I) = S227(I) + SATLF(I) 

IF X227(i) IT SATLF(I), LET■X227(I^ 
IF N227(I) GT SATLF(I), LET N227(I> 
LET A = LFSATd) 

LET SUMSL(I) = SUMSL(I) + A 
IF MAXSLCl) LT A, LET MAXSMD = A 
IF MINSL(I) GT A, LET MINSL<I) = A 
DO TO 2, FOR AuL MODSY IN MOO(I) 


SATLF(I) 

SATLFCI) 


LET SUMNU(MOnSY) = 
IF HAXNO(MODSY) LT 
IF MINNU(MOOSY) GT 


SUMNUTMOnSY) 
NUMCMODSY) , i 
NUM(MODSY), 


SUMLF(MOnSY) = SUMlF(MOOSY) 


IF MAXLF(MODSY) LT L OAOF {MODSY > , LET 
IF MiNLF (MOOSY) GT LOA'DF (MOUSY'} ,’ 'LET 
LOOP 

LET A = HALST(I)-BEGST (I) 

IF A EQ 0. , GO TO 3 
"LET P = l(rQ.-*S0tST(I)7A'' 

LET PERST(I) = PERST(I) + P 
IF N216(I) GT P, LET N216(I) 
.XF.X2i6JI.) LEI X_216(I) 

LOOP 
RETURN 
ENO 

SUBROUTINE MCVEH 


NUMCMODSY) 
r MAXNUCMODSYT = 
r MINNU(MOOSY) = 
■ LOAOFCMOOSY) 


MAXLF(MODSY) 

HTNLTrMO'DSYO 


STATISTICS 

. ..._Q0..rx)„i. 


LET SUM39(I0 
IF MAX39(I) 
IF HIN39 (I) 
LET SUM8&(I) 
TriTA’xSFn') 
IF MIN86(I) 


mcv.eh 

( YEHIGLES 


F5R J-tl). (NYEAR) 

■ = suM39(n'+TUGTnrr — 

.T TUGFY(I), let MAX39(I) = TUGFY(I) 
;T TUGFY(I),LET MIN39tI) = TUGFY(I) 

= SUM8&(I) + SEPFY(I) 

T sEP'Frfxrr“CET’H'inraF{ir"=”SEPrY (d 

IT SEPFYa), LET MIN86(I) = SEPFY(I) 



-29- 



ooo 




IF .MAX90 (I) 
LOOP 

LET IT= 0 
LET IT = IT 
IF.MTFLT LT 
IF NTFLT Gt 
LET ITFLT = 
LET IT = Q 
LET IT = IT 
LET IFSUT = 
IF MFSUT LT 
IF NFSUT GT 
LET IT = 0 
LET IT = IT 
LET IFSEP = 
IF-MFSEP LT 
IF NFSEP GT 
DO TO' 2, "FOR 


LT SUTFY(I), 


HAXgOCI) - 


SUTFY (I) 
SUTFY (I) 


+ TUGFYd), FOR I=(1)(NYEAR) 
IT, LET HTFLT = IT 
IT, LET NTFLT = IT 
ITFLT + IT 

+ SUTFY(I), FOR I={1) (NYEAR) 
IFSUT + IT ■ 

IT, LET HFSUT = IT 
IT, LET NFSUT = IT 


+ SEPFYt I) , FOR 
IFSEP + IT 
IT, LET MFSEP = 
IT, LET NFSEP = 
I=(l) (3) 


I=( t) (NYEAR) 


LET TCYA(I) = TCVA(I) CYA(I) 

IF CVA(I) GT XCVA(I), LET XCYA(I) = CVA(I> 

IF CVA(I) LT HCYA(I), LET MCVA(I) = CYACI) 

2 LOOP 
RETURN 
EN3 

SUBROUTINE MCSY3 

STATISTICS FOR SYSTEMS 

DIMENSION SX2(80) 

WRITE ON 6, TRIG 

FCRMAT(* DISTRIBUTION POINT FOR CYCLE*, 15) 

DO TO 4, FOR I=(l) (STST8) 

IF SYNAMCI) EQ 0, GO TO 4 

'UET' A'=- 0, - , - - 

DO TO 6, FOR J=(FSAT (I ) ) (LSAT (I) ) 

LET A = A + LFSAT(J) 

6 LOOP 

IF TRIG "EQ !;■ LET SX2TT) =0." 

LET SYLF(I) = SYLF(I) * A 
IF XSYLF(l) LT A, LET XSYLF(I) = A 
IF NSYLF(I) GT A, LET NSYLF(I) = A 

■ ■CEr”A"‘^ HALSVd) - BEGSYri)' 

IF A EQ 0. , GO TO 4 
LET P = 100,*SOTSY (I)/A 
LET^ PERSYJI) = PERSY(I) + P 

■ let s-xairr"!-'' ?**2‘ * ' ■■■ 

LET SIGMA = Q.- 
LET AN = TRIG 

IF TRIG NE 1, LET SIGMA = SQRT ( ( SX2 ( I) -PERS Y ( I) **2/AN) / ( 

' "LET Q~='PERSV(D/AN 

IF N20Q(I) GT P, LET N230(I) = P 
IF X200 a) LT P, LET XEOCd) = P 
WRITE ON GfSYNAMd) , A,SOTSY (I) ,P,0,SIGMA 
FORRAT(* SYSTEM * , A6 , * ' LIFE' *, ME . 2. 2 , *‘ DEC A Y' *, M5 . 2. 2', *" 
♦,04.6,*AVR AVL *,DA.6,* SIGMA *,02.6) 


CVA(I) 
CYA d) 


AN-l.) ) 


■AVAIL*- 


MCYEH 
MCVEH ■ 
MGVEH 
MCVEH 
MCYEH 
IfCVEH 
MCYEH 
MCVEH 
MCVEH 
MCVEH' 
MCVEH 
MCVEH 
MCVEH 
ITCVEH 
MCVEH 
MCVEH 
MCVEH 
■ MCVEH 
MCVEH 
MCVEH 
MCVEH. 
MCVEH * 
MCVEH 
MCVEH 
MCSYS 
--MCSTS- 
MCSYS 
MCSYS 
MCSYS 
MCSYS - 
MCSYS 
MCSYS 
MCSYS 
■•'MCSYS'"' 
MCSYS 
MCSYS 
MCSYS 
MCSYS' ' 
MCSYS 
MCSYS 
MCSYS 
MCSYS”" 
MCSYS 
MCSYS 
MCSYS 
MCSYS” 
MGSYS 
MCSYS 
MCSYS 
MCSYS"' 
MCSYS 
MCSYS ■ 
MCSYS 
MCSYS” 
MCSYS 
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kP?GRN 


END 

ENDOGENOUS EVENT NEWME 
REPLACEMENT OR UPGRADING OF ME 

FIX UP AND TEST v->f********9'***v-v-i-**>t-***v-**>f*^*******v^*^**>^********* 
J..ET' lEVHE = lEVME + 1 

IF MSTAT (PMOD (NEWME) ) £Q UP, GALL SHIP ( PS AT ( NEWME) , PMOO ( NEWME) ) 

IF MSTAT (PMOO(NEWME) ) NE UP, CALL STATUS ( IX , I Y, 5) . . 

DESTROY NEWME 

RETURN 

END 

ENDOGENOUS EV.ENT NWSAT . 

THIS ROUTINE WILL ATTEMPT TO SCHEDULE THE LAUNCHING OF A PAYLOAD 

ON A .VEHICLE, , . . 

IT WILL INCLUDE FIRST LAUNCH CHECK TO SET FINAL 6 MONTH LATER GO. 
LET lEVNW = lEVHW + 1 

LET IS = PSAKNW SAT) “ ’ - . 

DESTROY NWSAT 

IF TIME GE TIMEG, LET EXHOO = MODS 
CALL STATUS{IS,0,1) 

LET T = TGOSY (ITSYS(IS)) - - . 

IF T eO 0. , GO TO 1 
IF TIME GT T, RETURN 

1 CALL SH1P(IS,0) _ 

■ " LET' DELAY = , W'SAW 

IF SSTAT(IS) EQ UP, LET DELAY = WSATU 
IF DELAY GT TIMES - TIME, LET DELAY = 

. ..IF ..DE.L A.Y.. .L T _.q., , JLET J3E L AY 0 .. _ , 

LET DTIME(IS) = TtME + DELAY 


TIMES - TIME 


SCHEDULE MANDATORY LAUNCH 

“IF SORTE (ITSAT'dS) ) N£3., RTrURN 

CREATE LAUNC CALLED J . 

LET LQEV.<J) = IQ 

„ J.EI_mE.VJLIQ).- .F J... . 

CAUSE LAUNC CALLED J At TIME + OELAY^ 

RETURN 
END 

SUBROUTINE .PA.SER , . . .. 

PHASING ALGORITHM 
DETERMINE SATELLITE OR RETRIEVED PAYLOAD IN. QUEUE 



LET KSAT =0 

DO TO 5 , FOR J=(l) (NQ) 

IF IMOO (ILOAD(J) ) + IRT(ILOAO(J) ) 

‘5" “'LOOP' • - - " 


EQ a, LET KSAT = 1 


mt 

MCSYS 
NEWME“"' 
NEWME 
NEWME 
NEWME 
' NE WHE“^‘ 
NEWME 
NEWME 
NEWME 
' NEWWE'~ ■ 
NEWME 
NEWME 
NWSAT 
N'WSAT ■ 
NWSAT 
NWSAT 
NWSAT 
“TJPSAT-' 
NWSAT 
NWSAT 
NWSAT 
NWSAr- 
NWSAT 
NWSAT 
NWSAT 
NWSAT 
NWSAT 
NWSAT 
NWSAT 
"NWSAT” ■ 
NWSAT 
NWSAT ; 
NWSAT 

NViSAT 

NWSAT 
NWSAT 
NWSAT 
■ NWSAT — ' 
NWSAT 
NWSAT 
NWSAT 
"■NWSAT" 
NWSAT 
NWSAT 
PASER 
PASER""" 
PASER 
PASER 
PASER 
PASER 
PASER 
PASER 
PASER 
"PASER”” 
PASER 


35 


3 
k 
5 
S" 

7 

8 
9 

TQ 

11 

12 

2 

s ■ 

h 

5 

6 

•"7 — 
8 
9 

10 

'IT' 

12 

13 

lA 

TS“ 

16 

17 

18 

i g- - 
20 
21 
22 

23 — 

24 

25 

26 

“27^" 

28 

29 

30 

'31 “ 

32 

33 
2 

——j 

4 

5 

6 

7 

8 
9 

10 
"IT" 

12 
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Sd<?T INTO ORDER OF PHASE ANGLE 

6 DO TO 9s FOR K=(i)(HQ-l) 

00 ro 11, FOR J=(K+1)(NQ) 

IF ANGLE (ILOAD (K) ) LE A NGLE (ILOAO ( J) ) » ijO TO 11 
LET L = ILOAD(K) 

LET ILOAO(K) = ILOAO(J) 

LET ILOAD(J) = L 
il LOOP 
9 LOOP 

FIND LARGEST GmP IN CIRCLE 

OR FLIGHT HAS ONLY MODULES 
LET CX = 3 
LET JSAT = HQ 

IF ANGLeIiLOAO{ j)S"UN§LE( ILOAQ(J-l)) CX, GO TO 12 

LET CX = ANGLEdLOAO (J) ) - ANGLE £ ILOAO< J-l) ) 

'LtT JSAT = J - . 

1? L OGP 

IF 3&C.-ANGLE<Il 0A0(NQ> )-t-ANGLE(ILOAD£l) ) GT CX, LET JSAT = 1 

13 LEt'^ANGLECILOAD (j[? =""anGLE (ILOAO(J) r - 360., FOR J=(JSATimQ) 
GO TO 6 

14 IF K3AT EQ 0, GO TO 50 

■■ "QUIT. IF NON-RETRIEVEO SATELLITE AT FIRST POSITION 
DO TO 25, FOR J=(D £NQ) 

IF IMOO (IL OAO (J> ) -URTdLOAOCJ) ) EQ 0, GO TO 28 .. __ 

25 lOQ'P ~ 

28 IF ABSUNGLE (ILOAD £J)) ‘ANGLE (ILOAO(l) ) ) LT 1., GO TO 50 

' ■■ r'ecTroer delivery sequence: 

IF NQ GT 2, GO TO 21 

LET L = 1L0A0(2) . ... 

LET IL0'AD(2) i'lLOADdl 
LET ILOAO(l) = L 
GO TO 50 

.iJoaoTkIT) )T g 7 i.r^rroTo" "" 

LET J = K + 1 

29 LOOP . 

'30 IF-'ANGLETILOADTJ) )-ANGLE<ILpAn(n r GT 

* ANGLE (ILOAO (NQ) ) -ANGLEdLOAO (J) ) , GO TO 22 

FIND END OF POSITION ... 

23 00 TO 26, FOR K=(D(J/2) 

LET L = IL0A0(J-K+1) 

LET ILOAO(J-K+i) = ILOAO(K) .. 

■ -""LETTTOADTX) = L ' ‘ 

26 LOOP 


PASER 

P’ASER 

PASER 

PASER 

PASER 

PASER“ 

PASER 

PASER 

PASER 

PASER 

PASER 

PASER 

PASER 

PASER 

PASER 

PASER 

PASER 

PA-SER- 


PASER 

33 

PASER 

34 

PASER 

35 

PASER 

36 

PASER 

37 

PASER 

38 

PASER 

39 

- -PT\SER 

4'G- 

PASER 

41 

PASER 

42 

PASER 

43 

- PA-SER- 

44 

PASER 

45 

PASER • 

46 ' 

PASER 

47 

PASER- 


PASER 

49 

PASER 

50 

PASER 

51 

-PTVSER" 

52 

PASER 

53 

PASER 

54 

PASER 

55 


•PASER 

PASER 
PASER 
PASER 
PASER 
PASER 
PASER 
PASER 
PASER- - 
PASER 
•PASER 
PASER 

-PASER 

PASER 


-5B~- 

57 

58 

59 

-60 -- 
61 
62 

63 

64 

65 

66 
67 

- 6-8 

69 



c 

c 

c 


c 

c 

c 


c 

c 

c 


22 fP NQ, GO TO 23 

FIND END OF POSITION 

LET IJ = (NQ-J4-1) /2 

00 TO 27, FOR K=(J)(J+IJ-1) 

LET L = ILOAO(NQ-K+J ) 

LET ILOAD(NQ-K+J) = ILOAO(K) 

LET ILOAD(K) = L 
27 LOOP 

LET J' = NQ 
GO TO 23 

PHASING SETUP COMPLETE 

50 RETURN 
END 

SUBROUTINE PAYLQ(IS,IM, ILL) 

ENTER PAYLOAD INTO LOADING QUEUE AND ORBIT QUEUE 


CALL QOMP(IS,IM,ILL) 

IF TM EO O', GO TO 1 
IF TIME + DELTA GT LIMIT, 
IF EXMOD NE 100, GO TO 1 
ILL = 1 


GO TO 2 


LET 

RETURN ■ ■ 

1 LET IQ = 0 

IF ILL NE 0, RETURN 
C.REA.TE PAYLD CALLED IX 
LET ISAT (IX) = IS 
LET IMOO(iX) = IM 
IF IM NE 0, GO TO 5 
LET ^xsM.(is) =Exyqo 
IF EXMOO EQ ICO, 'LET 
IF EXMOO NE 100, LET 
GO TO 10 

5 LET PAYWT(IX)=MODWT(NOMOO(IM)) 
10 LET AN&LECrX)' = PHASE CIS) 

LET IRT(IX) = RTFLG 
LET GOTIM(IX) = 0. 

IF IM NE Oi_LET PAYLN(IX) 

•~TF~rR“TQ~D"r r'ET "P'A YL-Cl'CI X ) 

CALL REDUN(IS,IM) 

IF DELTA LT 0., LET DELTA 


p AYWT rix) ='ex''wttitsat (IS )■>• 

PAYNT(IX) =SWT(ITSAT(IS) ) 


= 0 . 

= "SV'CTL CITS'AT(IS)') 


_ ... = 0 . 

LET LQTIM(IX) = TIME + DELTA + PRIORdTSAT(IS) ) 

LET IQ = IX - 

LET MLEV(IX) = 0 

IF ORBQ(IORB) IS EMPTY, GO TO 15 

IF LQTIM(LOR8Q(IORB) ) GT LQTIM(IX), GO TO 15 

lE^T S0R3Q'(L0RBQ(I0R8)1'“ A“T)( 

LET PORBQ(IX) = LORBQdORB) 

LET SORBQ(IX) = 0 
LET LORBQdORB) = IX 

RETUR'N ‘ " ■“ ----- ... - 

15 FILE IX IN ORB'QdORB) 


PASER 
PASER 
PASER 
PASER 
PASER 
PA'SER 
PASER 
PASER 
PASER 
PASER" 
PASER 
PASER 
PASER 
PASER 
PASER 
PASER 
PAYLQ 
PAYLTJ 
PAYLQ 
PAYLQ 
PAYLQ 
■ PAYLH 
PAYLQ 
PAYLQ 
PAYLQ 
PAYLQ" 
PAYLQ 
PAYLQ 
PAYLQ 
P"A'YUQ' 
PAYLQ 
PAYLQ 
PAYLQ' 
■pTrYTTT" 
PAYLQ 
PAYLQ 
PAYLQ 
"P'AYLQ* 
PAYLQ 
PAYLQ 
PAYLQ 


72 

73" 

74 

75 

76 
77' 

78 

79 

80 
“HI" 
82 

83 

84 

85 

86 
87 

2 

■ 3 “ 

4 

5 

6 

7 

8 
9 

10 
11 " 
12 

13 

14 
T5~ 
16 

17 

18 
T9 

20 

21 

22 

24 

25 

26s 


— PATOr — 

— 2T~ 

PAYLQ 

28 

PAYLQ 

29 

PAYLQ...- 

30 

PAYLQ • 

31 

- PAYLQ 

•32 

PAYLQ 

33 

PAYLQ 

34 

•PATLQ" 

35" ■ 

PAYLQ 

36 

PAYLQ 

37 

PAYLQ 

■38 

■p-A-YU-Q- 

" '39' 

PAYLQ 

40 



I'^JURN 

SUBROUTINE PROP(MARKP) 

DIMENSIO'N A(20) 

C 

C DETECT AND COUNT SORTIES AND MODULES IN LOADING QUEUE 

C 

LET KX = fl 
LET NMD = 0 

DO TO 10 , FOR J=(l) (NQ) 

IF SORTE (lTSAT(iSAT(lLOAD(J) ) ) ) NE 0, LET KX = J 
IF IMOOdLOAO(J) ) Nl 0, LET NMD = NMD * 1 
10 LOOP 

IF KX GT 1» GO TO 70 
IF KX £0 1» GO TO 90 

C ‘ • 

C VOLUME(LENGTH) CONSTRAINT IS CHECKED 
C 

LET PALEN = PAVlV (RQSUT ( lORB) ) 

IF RQUP(10R6> N£ 0, LET PALEN = P AYL V (RQUP ( 10 R3» ) 

■ LET SU =( NMD+NINSU-1) /NINSU 
LET PAY = SU»^L£NSU 
00 TO 20 , FOR L = { 1) (NQ) 

IF IMOO(i'LOAO(L)) +IRT(ILOAO(L) ) EQ 0, 

» LET PAY = PAY + SVOL (ITSAT (ISAT( ILOAO(L) ) ) ) 

CHECK DOWN LENGTH 
20 LOOP 

IF PAY GT PALEN, GO TO 7G‘ 

C 

C CALL PERFORMANCE COMPUTATION ROUTINE 
C 

LET XX = PALEN - PAY 
CALL PR0P2 (MARKP, XX) 

RETURN 

C 

C PAYLOAD COMBINATION IS REJECTED - PERFORMANCE, LENGTH OR SORTIES" 
C 

70 LET W(10R3) = -10. 

RETURN 

c •" ■ • - 

C SINGLE SORTIE OPTION 
C 

90 LET WdORB) = -50. 

“ ■ LET’NIXiaRB) = 1 

LET GOTIMCILOADd) )= b./a6‘+0. 

LET ORBTM(IORB) = SORTEdTSATdSATdLOAO (1) ) ) ) 

LET ANMDdORB) = 0 

L^r-pQuraDR-ar- = TUETADa) ... 

RETURN 

END 

SUBROUTINE PROP2 (MARKP, PAY) 

C COMPUTE PROPELLANT REQUIRED TO DELIVER NQ ITEMS IN CLOAO ARRAY 

C 

C 

‘ ' DIM'ENSIO’N PLEG(20) ,OVLEG(20) ,THETAC2d ,A(20) 

DIMENSION 30IL(20) 


PROP 
PROP 
PROP 
PROP 
PROP 
PROP ‘ 
PROP 
PROP 
PROP 
PROP" 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PRDP 
PROP 
PROP 
PROP 
PROF ■ 
PROP 
PROP 
PROP 
PRUP 
PROP 
PROP 
PROP 
"PROF ■ 
PROP 
PROP 
PROP 
PROP - 
PROP 
PROP 
PROP 
PROP- 
PROP 
PROP 
PR0P2 
PROP2" 
PROPS 
PROP2 
PR0P2 
PROP2" 
PROP2 


it) 

2 

T 

4 

5 

6 

‘7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27- 
28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 
• 39 

40 

41 

42 
“43 

44 

45 

46 
tf7 

48 

49 
2 

— 3- 

4 

5 

6 
.7 
8 



VEHICLE DATA 


rF EQ if, GO TO i ' 

LET I = xQSEP(IOR3) 

LET FS = WnV(I) + REFTV(I) 

LET FO = HDV (I) 

"■ LET D'DKHY='0" ' 

LET JK = RQUP(IORS) 

IF JK EQ 0, LET JK = 1 
let days = OAYSV(JK) 

L E T TC O’R S 0 'T vTR'OTSTJr (TOR'Bl 1 

LET OV = 0R8OV(I0RS) 

LET RA = ORBRAdORB^ 

L£T„ VCO = 25936. 

LET “Pi = ORB'PO(IdR’B) : 

LET WRET = 0. 

LET WDEP = C. 

_ J--LT. WStftV =;o. 

DO TO 5 , FOR j=U) (NQ)" ““ 

call quad(angle(Iloao( J) ) ; 

IF IMOD (ILOAD(J) ) EQ 0, LET WDEP = WOE 

I.F IHOD ( I lOAO(J) ) ME ^ LET WSER V = 

IF IRT(ILOAD(jn EO G0~'TO~Tr 

lET WDEP = WDEP - PAYWTaLOAO(J) ) 

^ LET WRET = WRET f PAYWT QLOAD { J) ) 
_„5_LOOP. , 

COMPUTE PERFORMANCE - UP/DOWN PAYLOADS 

L_ET _WS_ERV = WSERV + WTSU^ SU 

LET WUPL = WOlP'Y’' WSfRV 
LET WSPL = WRET + WSERV 
I.F PSERV EQ it LET WSPL - WRET 

lF-P_SERy EQ 2 , LET WSPL = WR ET + WTSU 

TTF RQUP^I^kHT tQ Dt TTCT TD HTD 
LET WBOIL = WPNUV(JK) 

LET NS = NSTAG(JK) 

IF NS EQ 0, LET NS = 1 

"DO TO" if0T“TD‘R”NK='a7T'N'Sl 

LET JX = JK + NK ~ i 

IF EXVEH EQ 0, LET EXVEH = EXPV(JX) 

LET XVEH = EXVEH 

CTA L L "TirrKTTN'KT'TS PVTDTy rTOTTUXTTWFNQV' CO 
SOLID( JX) ,WCOMV(RQSUT ( I0R3) ) ,TKIN) 

HO LOOP 

- iF.NS GT It CALL TWO BR ( DV , 0 VI (I ORB) ) 

6 GET NLEG =“i"“ ' ’ ’ 

LET PLEG(l) = WUPL 
LET QVLEGU) = DV 
LET SOIL(i) = W30IL*6. 

LET MARkP =0 - 

IF NQ EG 1, GO TO lUOO 
LET GOA'I = DAYS - .5 

COMPUTE PROPELlAMT FOR 'SERVICING 



1 



c 

c 

c 


5Q = 0. 

LET PANGUJ) - ANGLE (iLOAO(J) ) - ANGLE (II OAO (J-IM , 
♦ FOR" J=(2) (NQ) 

LET TO = J« 

LET TO = TO A3S (PANGL(J) ) ♦ FOR J=(2){NQ) 

DO- TO 60, FOR HFLT = (2)(NQ> 

I'ET X =“NSERV 

LET NFF = NFLT 

DO TO 54, FOR J=(1)(NFF-1) ^ 

IF IRTCILOAD(J) ) NE 0, LET X = X + PAYWT (IL OAD ( J) ) 

54 LOOP 

DO TO 55, FOR J=(NFF)(Na) 

IF IMOO(ILOAO(J) ) EO 0,’‘LET X = X PAYWT (ILOAD (J ) ) 

55 LOOP - ..... 

COMPUTE PHASING PROPELLANT 

LET FLTIM(NFF) ■= 0. . .. 

IF P'ANGL(NFF) EQ 0., go to 60 . 

IF ABSCFANGL (NFF> ) LT 1., GO TO 60 
LET lETA = A8S(®ANGL (NFF) )/T0*3DAY»24./Pl + .2 
IF lETA LE 0, LET lETA = 1 
LET ETA = lETA 
MARKP = 1 

PO = Pi* (1 ,-PANGL ( NFF) / (360 ,»ETA) ) 

TO = TO - A3S(PANGL (NFF)) 

FLTIM(NFF) = PO* ET A/ (24 . »30 . ♦ 1?.T ’’ " 

GDAY = GOAY - P0/24,»ETA 
GOAY LT -.5, GO TO 70 
PO LT ,Z5Z5*P1, GO TO 7G 


iO 


63 


670 

C 

“C 

C 


60 

00 


LET 

LET 

LET 

LET 

LET 

IF L 

IF 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 


■RP = RA*(Z.*rPO/Pi) ^'»(2./3. ) -1.) . ... - 

VCP ” \/CO ^ SQRT(RO/RP) 

DVO = 2.^VCP»(SQRT(i./(RA/RP) )-SQRT(2./( (RA/RP)*(i.+RA/RP) 
OYO = ABS(0»/0) 

NLEG = NLEG + 1 ' ' " 

PLEG(NLEG) = X 

D\/LEG(NLEG) =. OVO 

BOIL (NLEG) = W30IL-»PG»ETA 

T H ET AT NL EG - 1 ) " P*A N Gt ( NFF V 


)) ). 


LOOP 

LET NLEG = NLEG +• 1 
LET PlEG(NLEG) = WSPL 
LEr'UVCrGTNLEG) = DV 
LET BOIL(NLEG) = WB0IL*6. 


GO TO 
670 

TO 


64 


IF RQSEP(IORB) NE 0, 

IF EX\/EH EQ 0, GO TO 
TF •WRET-’ NE 'O.', GO" TO 
LET NLEG = NLEG 1 
LET DUMMY = 0 

08TATN PRO'PELrANT REOOIREHENTS' FOR TUG TYPE' VEHICEES " 

LET JKO = Q 

CALL CONEC(NS,JK, JKO) . 

CALL PRF0WCD'VtEG',P[:EU",B0IC,'ULEG;-RF,T)H)' ” 

IF WP LT 0,» GO TO 65 


PR0P2 . 
PR0P2 
PR0P2 
PR0P2 
PR0P2 
PROP2 
PR0P2 
PR0P2 
PR0P2 
■PR0P2 
PR0P2 
PR0P2 
PR0P2 
ERUP2' ' 
PR0P2 
PR0P2 
PR0P2 
PR0P2 
PR0P2 
PROP2 
PR0P2 
• PROPZ-" 
PR0P2 
PROP2 
PR0P2 . 
-PROP 2 
PR0P2 
PROP2 
PR0P2 
PROPa—T 
PR0P2 
PR0P2'. 
PR0P2 
-PROPZ-- 
PROP2 
PROP2 
PR0P2 
■PROP2 " 
PR0P2 
PR0P2 
PR0P2 
-PR0P2"- 
PR0P2 
PROP2 
PR0P2 
-PRUPR- 
PR0P2 
PROP-2 
PR0P2 
■ PR0P2' • 
PROP2 
PR0P2 
PR0P2 
PROP2-' 
PR0P2 



( J-1) , FOR J= C2) -(NQ) 


- -Irl? I + FLTiM 

L£F FLY = FlTIM(NQ) + 6./664C. 

GO TO 6F 

S£PS PFKFORMANCe COMPUTATIONS 

’64 IF I SEP'S EO 0. 50 'TO '65 - . . . 

IF EXVEH NE 0» GO TO 70 

CALL SEPSV(NLEG-2,Pl,\/C0,THETA{i) ,PLEC(2) ) 

.. ,l£T P.I.EG (N.LE.GI = SWDN.(ISEPS) 

LET JKO = ISEPS - - - - ■ 

CALL CONEC(NS,CME M, ISEPS) 

= = LEXITdSePS, 

F?t'-„SK9?Hi'’''!--'’>f’^E8>3oiiTNrES^Xp;*'*irexiTfiSEPST;i'*nsET>ras'EPsir 

LET M SEP ( I .lEPS) = 1- 
LET HP = 10 
. .LET WUSEP = G 

LET WDNS'P’"= Q 


3EPS OPTIONS 

.. nexit. values 


1 

2 

3 

.4 . 
5 


SEPS UP NEW AT MIN AlT - SET WUSEP AMO LENGTH AND WEIGHT CHEC 
_ SEPS UP AT.,S.YNG..£^ “.POES^PHASING only - SAME AS APOV_E_. 

NO GOOD 

. ™NO.JOOQ_ 

OK - SEPS DOWN TO MEET TUG 

3. _ . _._0 K T.H E Y, MEET AT SYNC __E_£ 

7 NO GOOD 

-3 .. NO .GOO.D __ __ 

9 NO GOOD 

-JtO _ SEPS.„3A0UGlir. .pOWN_.t JIO_JU£_PA_YL^^^ _ 

230,110,235,250, 24G) , NEXIT ( ISEPS ) 

LET DUMMY = 0 

IF LEXLTJLIS.EPS) .ilE .0, G_0 TO 250 
IF LSEP GT PAY, GO TO 70 '' - — 

IF SCOOT EO 0, GO TO 201 
IF MQ GT 1, GO TO 70 


PROP2 
“PROP 2 ■ 
PR0P2 
PR0P2 
PROP2 
■■PR0P2' 
PR0P2 
PR0P2 
PR0P2 
■■pR:o*P2 
PR0P2 
PROP2 
PROP2 
PRG'PE 
PR0P2 
PR0P2 
PROP2 
■PRG-P2“ 
PROP2 
PR0P2. 
PR0P2 
“FROP2“ 
PR0P2 
PR0P2 
PROP2 
■PRTJFZ~- 
PR0P2 
PR0P2 
PR0P2 
TTTD'P?" 
PR0P2 
PROP2 
RROP2 
T^RW2^ 
PR0P2 
PR0P2 
PR0P2 
"PR'OF2 
PR0P2 
PR0P2 
PR0P2 


■ m 

125 

^126 

127 

123 

129 

■ “T30 

131 

132 

133 

■ “'134 

135 

136 

137 

“ "1'3 5 ■ 
133 

140 

141 

... — . 

143 

144 

145 

■ — r45 • 

147 

143 

149 

^150“ 

151 

152 

153 


T54" 

155 

156 

157 


TS-S 

159 

160 
161 

“152' 

163 

164 

165 


1 LET WUSEP = FS 
GO TO 260 
0 LET WUSEP = FS 

IF lEXITUSEPS) NE 0, GO TO 
.. IF LSEP GT PAY, GO TO 70 
GO TO 260 
0 LtT DUMMY = C 


250 


PRCTP2 

"T66 

PROP2 

167 

PR0P2 

163 

PR0P2 

169 

PRO P2 ‘ ■ 

170 

PR0P2 

171 

PROP2 

172 

PROP2 

173 

PR0P2 

174 ' 

PROP2 

175 

PR0P2 

176 

PROP2 

177 

■ PROP2 

178 

PROP2 

179 



1 


U 0, GO TO 70 

LET DUMMY = 0 

60 'TO' ‘'2*6 0' ■■ 

LET nUMMY= 0 
LET NQ = -2 
„LET NMO = Q _ 

LET WONSP=FD 
GO TO 260 
LET DUMMY = 0 

J.ET DUMMY =„0 

LET N'Q = -i 
LET NMD = 0- 
LET WONSP= FD 

_LET _WP - *10. 

GO To' 2'6'0 
LET DUMMY =C 

LET A (I ) = 0. » FO-^ I = (l) (2Q) 

CALL TPHAS(A_,NLEGJ __ 

TE'f "TUP ■='"511T 

LET TDONN = A(NLEG) 

LET TDOWN = TDOWN - TIME + AYSEPCISE 
IF TDOWN LT 0^ LET TDOWN = C. 

L t r T L T TMT 1')“ = TUP~F“ 677*^6 AG ; ‘ ‘ “ ' ' 

LET M = 2 

DO TO 66 , FOR 1= ( 2) (NQ) 

LET FLTIM(I) = FLTIM(i-l) 

'1 F aB S'C PT^-N GU (T 7 ) ~rT'T7'; ~G'OTO"6B ' 
LET FLTIM(I) = A(M) + FLTIM(l) 

LET M = M + 1 
LOOP 

■CErTL‘Y""='"d. ■ • 

IF NQ GT 0, LET FLY = FLTIM(NQ) +- i. 
IF NQ LT 0, GO TO 65 


EPS) - PAOT 


/ 364 0 


IF FLY + TDOWN GT 
TET WTI OT^7“='lTP’''"’ 
IF NQ LT 0» GO TO 
IF W(iOP3) LT O.t 
LET DUMMY = 0 


TLIMS, 
6 7 

RETURN 


■pgSP? 

PR0P2 

iM 

182 

’TR0P2 

TE3 

PROP2 

184 

PR0P2 

185 

PROP2 

186 

■ PRDP2 ' 

- _ 

FROP2 

188 

PROP2 

189 

PROP2 

190 

■ PR0P2 

— ~r9i 

PR 0P2 

192 

PR0P2 

193 

PR0P2 

194 

~PR0P2' " 

- -i-g5 — 

PROP2 

196 

PR0P2 

197 

PR0P2 

198 


; SAYE PREVIOUS GOOO LAUNCH SETUP FOR NEXT FLIGHT (IF SEQUENCE ENDS ) 
LET NL(IORQ) = NQ 

‘ LET “G'0TTM(ir OADTJ) ) = Fi.TIKTJ) t FOR J=tI)TNQ-) ' 

LET OR3TM(IOR3) s= FlY 
LET ANMD(IORB) = NMD 

LET CITEK( IlOAD( J) ) = lLOAO(J+i)t FOR J=(l){NO“l) 

LET PQUE(IORB)' ^-TLOAOd) ' ' - — - - 

RETURN 

: PAYlOAD COMBINATION IS REJECTED - PERFORMANCE, LENGTH OR SORTIES 

s . . — « — - - “ . ^ ^ 

70 LET W(I0R3) = -10. 

LET WUSEF = 0 
LET WONSP = 0 

RETURN • ' ■ ■ 


PROP2 

PR0P2 

PROP2 

• PRTJP2" 

PROP2 
PR0P2 
PR0P2 
— ■PRQR^“■ 
PROP2 
PR0P2 
PROP2 

PRQP 2 - 

PR0P2 

PROP2 

PROP2 

PROFT" 

PROP2 

PR0P2 

PR0P2 

PRtrPE- 

PR0P2 

PROP2 

PR0P2 

PR0P2 

PROP2 

PR0P2 

PR0P2 

"•'“P 1 ROP 2- 

PROP2 

PR0P2 

PR0P2 

PR0P2- 

PROP2 

PROP2 

PROP2 

PROP2 

PR0P2 


— r9f9"~ 
200 
201 
202 

2tT3~ 

204 

205 

206 

2DT' 

203 

209 

210 



OOOO ooojo 0,000 


6 


J=(l) <NQ-1) 


SHUTTLE ONLY OPTION 

t(Ji) IF WUPL GT WCONS, GO TO 70 
IF WSPL GT WCONS, GO TO 70 
LET NL(IORB) = NQ 

LET W(IORS) = 10C,*(1.-WUPL/WCONS) 

LET GOTIM(ILOAO( J) ) = 6./06LD,, FOR J=(1)(NQ) 

LET ANMD(IORB) = SU 
LET ORSTMdORB) = 24./86A0. 

LET CITEM(ILOAO( J) ) = IL0A0(J+1), FOR 
LET PiiUE(I.0R8) = ILOAD(l) 

RETURN 

110 LET X= G 
GO TO 70 

END. . .. 

SUBROUTINE QDMP ( IS, I M, ILU 

REMOVES EARLIER DUPLICATE PAYLOAD FROM LOADING QUEUE 
ALSO BLOCKS MODULES FROM ENTERING QUEUE 

LET lORB = 0R3IT(ITSAT(IS) ) 

LET ILL = 0 

IF 50RTE (ITSAT (IS) ) NE 0., RETURN 

IF RTFLG EQ 0, GO TO r 

IF NPOS(IS) GT 1, RETURN 
1 IF ORBQdORB) IS EMPTY, GO TO 3 

LOGIC FOR SATELLITE ENTERING' QUEUE AND 'FLUSHING ALL MODULES FROH 
PREVIOUS SATELLITE FROM QUEUE 

IF IM NE 0, GO TO 6 

DO TO 5, FOR ALL PAyLD IN ORBQdORB) ' 

IF ISAT(PAYLD) NE IS, GO TO 5 
IF IRT(PAYLO) NE 0, GO TO 5 

IF. -IHOQ(PAYL.O) EQO, GO. TO 7 

CALL DR0PQ(PAYL0,I0R8> 

LET NLdORB) = 0 
5 LOOP 

3 ROilRN . . . . 

7 LET ILL = 1 
RETURN 


LOGIC- FOR MODULES ENTERING QUEUE ■ 
CAN INHIBIT MODULE ENTRY 


satellite already IN QUEUE 


DO TO 9, FOR ALL PAYLO IN ORBQ(IORB) 
IF ISAT(PAYLO) NE IS, GO TO 9 
IF IMOOIPAPlOJ £Q O', G'O'TO 7 
IF IMOOt PAYLO) NE IM, GO TO 9 
CALL OROPQ(PAYLD,IORs) • 

LET NLdORB) = 0 

■RETURN 

LOOP 

RETURN 

END 

ENDOGENOUS EVENT QWAIT 


mm 

m 

PR0P2 

239 

PR0P2 

24F ' - 

PR0P2 

241 

PR0P2 

242 

PR0P2 

243 

PRUP2* 

244 

PR0P2 

245 

PR0P2 

246 

PR0P2 

247 

■PRQ'F2 " 

Z4B ' 

PR0P2 

249 

PR0P2 

250 

PR0P2 

251 

QDMP 

' 2 

QOMP 

3 

QOMP 

4 

QDMP 

5 

QDMP' 

• -6-' 

QOMP 

7 

QOMP 

8 

QDMP 

9 

QUHP' • 

It) 

QDMP 

11 

QDMP 

12 

QDMP 

13 


QUW 
QDMP 
QOMP 
QDMP 
TQDHF" 
QOMP 
QOMP 
QDMP 
QUMP' 
QOMP 
QDMP 
QDMP 
QDMP . 
QOMP 
QOMP 
.QDMP 
QURF "■ 
QOMP 
QOMP 
QDMP 
QDMP 
QDMP' 
QOMP 
QOMP 
QOMP 
QOMP 
QOMP 
QDMP 
QWAIT 
QWAIT 


14 

15 

16 
17 

'18 

19 

20 
■ 21 

~zz 

23 

24 

25 
"Z6 

27 

28 
29 

31 

32 

33 

■ 

35 

36 

37 

38 

39 

40 

41 
2 
3 


I 

LO 

vO 

I 



•ooo ■ oo'o ! ooo 


S 


MODULES WAIT ONE WEEK ‘BEFORE ENTERING LOADING QUEUE 


LET 

LET 

LET 

LET 


lEVQH = XEVQW^-*- 1 
IS = psatTqwait) 


IM = PMOO(QWAIT) 

DELAY = TIMEA(QWAIT) 

destroy QWAIT 

IF TIME + DELAY GT TGO(XS), RETURN 
CALL REOUNaStlM) ^ ^ ^ 

IF DELTA GT 0., CALL PAYLQ{IS,IM,ILL) 

IF DELTA GT 0., RETURN 
CALL SH1P(1S»1M) 

IF IQ EQ 0, RETURN 
CREATE LAUNC CALLED K 

LET LQEV(K) = IQ _ _ 

■ LET MLEV(IQ) = K ----- 

CAUSE LAUNC CALLED K AT TIME * DELAY ■ 

RETURN 

END 

SUBROUTINE QUAD C A) - . - - - - - 

5 IF A GT 0,, GO TO 10 
LET A •= A + 3&0. 

GO TO 5 

10 IF A LT 360., RETURN ‘ ' 

LET A = A - 360. 

GO TO 10 
END 

SUBROUTINE REOUN (IS, IM)‘ ‘ 

LET DELTA = C 

IF IM EQ 0, RETURN 

IF MSTAT(IM) EQ 3, LET EOp(IM) f 1 

FIND REDUNDANT SUBSYSTEM 

DO TO 5, FOR ALL MOOSY IN MOO(IS) 

LET IX = NRU(MOOSY) ■ - - -- 

IF IX EQ a, GO TO 4 
IF IX EQ 100, 60 TO 4 
IF IX EQ 1, GO TO 3 
'L'ET 18 ='0 ■ ■ " 

LET lY = 0 
LET IK = MODSY 

DETERMINE IF SUBSYSTEM ‘CONTAl MS' THIS" EL EHENT AND COUNT FAILURES 

DO TO 1 , FOR I = (l) (IX) 

IF IM EQ IK, LET lY = 1 

IF EDOCIKT -NE'D, LET IB = IB + 1 

LET IN = IK 
LET IK = SMOD(IK) 

1 LOOP 

... -jp-pif NE o, GDTO 6 ‘ ' 

LET MOOSY = IN 
GO TO 5 

SINGLE FREEBIE FOUND ' ‘ ' 


QWAIT 
QWAIT 
QWAIT 
QWAIT 
QWAIT 
QRATT”' 
QWAIT 
QWAIT 
QWAIT 
QWAIT' 
QWAIT 
QWAIT 
QWAIT 
■ OWAIT'" 
QWAIT 
QWAIT 
QWAIT 
•QUAtr 
QUAD 
QUAD 
QUAD 
QUAD 
QUAD 
QUAD 
QUAD 
•REDW" 
REDUN 
REOUN 
REDUN 
RET) Off” 
REDUN 
REOUN 
REDUN 
REDUN" 
REOUN 
REDUN 
REOUN 
REDUN' 
REOUN 
REOUN 
REDUN 
REOUN 
REOUN 
REOUN 
REDUN 
REOUN - 
REOUN 
REOUN 
REOUN 
REDUN' 
REDUN 
REDUN 
REOUN 
-REOUtl 
REOUN 



c 

c 

c 


c 

c 

c 


G 

C 

C 


c 

c 

c 


c 

c 

c 


§$ 


3 Ke}%^hrmbo^^, 5 

RETURN 

QUICK EXIT ON NRU OR SINisLE STRAND 

4 IF IM £Q n'oDSY, RETURN 

5 LOOP 
RETURN 

OETE.RMINE IF ELEMENT IS A FREE8IE_„ 

6 LET 18 = IX - NRU(SMOD(MOOSY) ) - 13 
LET A = 19- 

IF IB GE 0,-LET DELTA = 3000. + A^lOQO. 

LET. lA = O' 

IF IX GT 2, LET IA= NRU ( SMO D( SHOD (M003Y )) ) 

IF lA EG 0, RETURN 
IF IB LT 0, RETURN 
IF IB LT lA, LET DELTA = -3000. 

RETURN 
END 

ENDOGENOUS EVENT REFMO 

THIS ROUTINE TAKES CARE OF REFURB OF MODULES 

LET lEVMO =■ lEVMO + i 
LET IN = PMOD (REFMO) 

LET MOCNT(IM) = MDCNTdM) f i 
DESTROY REFMO 

IF TRIG EQ 0, WRITE ON 6 , T IME , MN AME ( IM ) 

FORMAT (S 5, M5 .2.2,543, A6 ,Sl,*REF UR 91SHE0»> 

RETURN 

END 

ENDO'GENOUS EVENT REFSA 

THIS ROUTINE TAKES CA-RF OF REFURB OF SATELLITES 

LET lEVSA = lEVSA + i 

RETURN 

END 

ENDOGENOUS EVENT REFVE 

THIS ROUTINE TAKES CARtS OF REFURB OF VEHICLE'S 

LET lEVVE = lEVVE. + 1 
IF TRIG NE 0, GO TO 2 
LET TE' = TIME ■ 

LET I = OPART (TE) 

LET J = HPART (TE) + 1 
LET K = -MPART (TE) + 1 

“ ¥RTTE ON 6,I,J/K,'VNAME'rREFVE) ,PHOD'(REFVE) “ 

FORMAT (»0 »,I5,».*,I2,».^,I2,S63, A6,I3,Si,^AVAILABL£») 

2 LET IC = 0 

IF VNAME(REFVE) EQ SEPS, GO TO 6 
rF'WA'KE'(REFV.Er'EQ' SHUT, GO TO 5 " “ 

IF VNAME (REFVE.) EQ KPAO, GO TO 8 




REDUN 

34 

RFOUN" “ 

■75 

REDUN 

36 

REDUN 

37 

REDUN 

38 

RED-UR 

79- 

REDUN 

48 

REDUN 

41 

REDUN 

42 

REDUN * 

'¥3' 

REDUN 

44 

REDUN 

45 

REDUN 

46 

REDUN' 

47 

REDUN 

48 

REDUN 

• 49 

REDUN 

50 

REDUN' 

51 

REDUN 

52 

REDUN 

53 

REFMO 

2 

REFMO 

3 

REFMO 

4 

REFMO 

5 

REFMO 

6 

REFMO 

7 

REFMO 

8 

REFMO 

9 

REFMO 

n rriT KJ ^ - 

10 
ar“4 


REFMO 
REFMO 
REFSA 
REFSff~' 
REFSA 
REFSA 
REFSA 
REFSA' ■ 
REFSA 
REFVE 
REFVE 
REFVE' 
REFVE 
REFVE 
REFVE' 
■REFVE 
REFVE ' 
REFVE 
REFVE 
■REFVE 
REFVE 
REFVE 
REFVE 
'REFVE ■ 
REFVE 


12 

13 

2 

- 3 — 

4 

5 

6 


8 

2 

3 

4 ' ' 

5 

6 
7 
5 
9 

10 

11 

13 

14 

15 
~16 

17 



e. 


UPPER STAGE COMPLETES REFURBISHMENT 



c 



REFVE 

20 



00 TO 1, FOR I={1) (NTUG) 

REFVE 

2r 



IF \/TU&{i) GT 0» LET IC = IC + 1 

REFVE 

22 


1 

LOOP 

REFVE 

23 



LET VTUG (PHOO (REF^/E) ) = 1 

REFVE 

24 



IF IC HE 0, GO TO 15 

REFVE 

25 



GO TO IG 

REFVE 

26 

c 



REFVE 

27 

c 


SHUTTLE COMPLETES REFURBISHMENT 

REFVE 

28 

"C 



REFVE 

29 


5 

LET IC = IC + VSHUT(I), FOR I={1)(NSHUT) 

REFVE 

30 



LET VSHUT{PMOO(REFVEn = 1 

REFVE 

31 



IF IC NE 0. GO TO 15 

REFVE 

32 



GO TO iC 

REFVE 

33 

c 



REFVE 

34 

c 


SEPS COMPLETES REFURBISHMENT 

REFVE 

35 

c 



REFVE 

36 


6 

LET IC = IC + VSEPSd), FOR I=(1)(NSEPS) 

REFVE 

37 



LET VSEPS(PMOO(REF\/£)) = 1 

REFVE 

38 



cET AVSEF{PMOO(REFVE) ) = TIME 

REFVE 

39 



IF IC NE 0, GO TO lb 

REFVE 

4Q 



GO TO 10 

■ REFVE 

41 

c 



REFVE 

42 

c 


PAD COMPLETES REFtJR3 ISHME NT 

REFVE 

43 

c 



REFVE 

44 


8 

LET J = PSAT(REFVE) 

REFVE 

45 



LET IC = IC 4- VPAO(I)* FOR 1 = ( NPADi ( J) ) ( NPAD2 ( J ) ) 

REFVE 

46 



LET \/PAO(PHOO(REFVE) ) = 1 

REFVE 

47 



IF IC NE Of GO TO 15 

REFVE 

48 

c 



REFVE 

49 

c 


FORCE ANY FLIGHT FOUNO LEFT IN THE LOADING QUEUE-HUE 

TO LACK OF VE REFVE 

50 

c 



REFVE 

51 


1.0 

DO TO 11, FOR I=C1)(N0R3S) 

REFVE 

52 



LET lOTR'e = I 

REFVE 

53 



IF ORBQdORe) IS EMPTY, GO TO 11 

REFVE 

54 



IF 7NAM£(REFVE) NE SEPS, GO TO 12 

REFVE 

55 



IF RQSEPdORB) EQ 0, GO TO 12 

REFVE 

56 



LET EXORBdORT) = 0 

REFVE 

57 



LET W(I0R3) = -10. 

REFVE 

58 



LET NLdORB) = 0 

REFVE 

59 

.12 


LET DUMMY = 0 

REFVE 

60 



IF waOR3) GE n,, GO TO 11 

REFVE 

61 



CALL GETV(IGO) 

REFVE 

62 



IF IGO NE 0, GO TO 11 

■ REFVE 

63 



CALL SHIP(-1,Q) 

REFVE 

64 


11 

LOOP 

REFVE 

65- 


15 

DESTROY REF\/E 

REFVE 

66 



RETURN 

REFVE 

67 

UKPAO 

PAD 

REFVE 

63 



END' 

• REFVE 

69 



ENDOGENOUS EVENT REMOV 

REMOV 

2 

C 



REMOV 

3 

C 


NOTE STATUS OF REMOVAL OF SATELLITE FROM ORBIT 

REMOV 

4 

c 



REMOV 

5 



LET lEVOV = lEVOV + 1 

REMOV 

6 




LET NPOSdS) = MPOS(IS) - 1 
call STATUS<IS,0,9) 

CALL Q0MP(IS,D,IL) 

RETURN 

END 

ENDOGENOUS EVENT RETRI 

SCHEDULE THE RETRIEVAL OF A SATELLITE 3Y ENTERING IT INTO 
THE LOADING QUEUE 

LET lEVRI = lEVRI + 1 
DESTROY F^eTRI 
LET RTFLG = 1 
CALL SHIP(PSAT (RETRI) , 0) 

LET RTFLG = 0 

RETURN 

END 

ENDOGENOUS EVENT SATON 

SATELLITE VOLUNTARILY GOES DOWN AT TERMINATION TIME 

LET lEVDN = lEVON <- 1 
LET IS = PSAT(SATON) 

DESTROY SATDN 
LET MARKS(IS) = C 
IF SSTAT(TS) EQ OUT, RETURN 
IF tJPOSdS) NE 1, RETURN 
CALL QDMP(IS»Q»ILL) 

CALL STATUS(IS,0,3> 

LET MARKS(IS) = 0 

RETURN 

ENO 

SU3R0UTINE SAVER(T2,IS) 

LET IPOL = POLDNdTSATdS) ) 

LET JSY = ITSYSdS) 

IF IPOL LT 2» RETURN 
IF IPOL GT A, RETURN 
IF IPOL EO 2» GO TO 10 

SCHEDULE SATELLITE RETRIEVAi. (RETRI) AT TERMINATION TIME <■- 

IF MARKOdS) E'Q P, GO TO i 
CANCEL RETRI CALLED MARKOdS) 

DESTROY RETRI CALLED MARKD(IS) 
let MARKOdS) = 0 
1 LET T =' T2 + NAIT2 
IF T LT TIME, GO TO 10 
IF T GT TG0SY(JSY)» GO TO 10 
IF T GT TIMES- NSATN, GO TO IQ 
CREATE RETRI 
LET PSAT (RETRI) = IS 
CAUSE RETRI AT T 

LO IF IPOL GT 3, GO TO 20 . ... 


SCHEDULE 


SATELLITE (NWSAT) 


termination time 



1 

REMOV 

9 

REMOV 

10- • 

REMOV 

11 

REMOV 

12 

REMOV 

13- 

RETRI 

■ 2 

RETRI 

3 

RETRI 

h 

RETRI 

5 

RETRT 

6 

RETRI 

7 

RETRI 

8 

RETRI 

9 

RETRI 

10 

RETRI 

It 

RETRI 

12 

RETRI 

13 

SATDN 

2 

SATON 

3 

SATON 

4 

SATON 

5 

SATON 

6 

SATON 

7 

SATON 

8 

SATON 

9 

SATDN 

10 ■ 

SATON 

11 

SATDN 

12 

SATON 

13 

SATON 

T4 

SATON 

15 

SATON 

16 

SAVER 

2 

SAVER 

3 

SAVER 

4 

SAVER 

5 

SAVER 

6 

SAVER 

• -7 

SAVER 

a 

SAVER 

9 

SAVER 

10 

SAVER 

' n — 

SAVER 

12 

SAVER 

13 

SAVER 

14 

SAVER 

15 

SAVER 

16 

SAVER 

17 

SAVER 

18 

SAVER- 

19 

SAVER 

20 

SAVER 

21 

SAVER 

22 

SAVER' " 

-2T‘ 

SAVER 

24 



V 


C 

c 

c 


G 

c 

c 


c 

c 

c 


11 


XF MARKU(IS) £Q 0 , GO T.O .2 
CANCEL NWSAT CALLED MARKU(IS) 

DESTROY NWSAT CALLED MARKU(IS) 

LET MARKU(IS) = G 

2 LET T = T2 

IF T GT TGOSY(JSY), GO TO 20 
IF T LT TIME, GO TO 20 
IF T GT TIMES- WSATM, GO. TO -20 
CREATE NWSAT 
LET PSAT (NWSAT) = IS 
CAUSE NWSAT AT T 
2G RETURN 
END 

SU3RUUT1NE SHIP (IS, IM) 

THIS IS THE LOAOING ROUTINE 

IF IS GT 0, LET I0R3 = ORdI T ( ITS AT ( IS ) ) 

LET IFLAG = 0 

IF RQSEP(IORB) ME 0, lET IFLAG = 1 
LET EXVEH = EXOR3(lOR3) 

IF IS LE 0, GO TO 30 

ENTER PAYLOAD INTO uOAOING OUEUE 'AND TRY FLIGHT 

1 CALL PAYLQ(IS,IM,ILU 
IF ILL NE 0, RETURN 

3 call GETV(IGO) 

IF XGO NE 0, GO TO 

IF NL(I0R3) EQ IL, GO TO 10 

call M4RKD 

IF NQ EQ 0, RETURN 

call pROP(MARKP) 

IF NQ LT 0, GO TO IG 
LET EX0P3(I0R3) = '=‘X\/EH 
IF W(IOKB) GE 0., RETURN 

LAUNCH PAYLOADS FROM QUEUE - SLOAD . 

10 IF NUdORB) EQ 0, GO TO 3G 
IF IGO NE 0, GO TO 80 

IF ISEPS EO 0, GO TO 12 , . 

IF NQ LT 0, GO TO 12 
LET NQ = NL(IOR3) 

LET ILOAD(l) = POUEdORB) 

LET ILOAD(J+l) = CITEMdLOAD(J) ) ,FOR J=(1)(NQ-1) 
IF NQ LT 0, GO TO 12 
CALL PROP(MARKP) 

IF W(IOR3) LT G., GO TO 11 

IF MARKP NE 0, GO TO 12 

IF NEXIT (ISEPS) EQ 2, GO TO 11 

IF NEXIT(ISEPS) NE 6, GO TO 12 

LET DUMMY = Q 

LET ISEPS = 0 . , • 

LET IFLAG =-0 

GO TO 21 . . • , 




SAYER 

27 

SAVER 

28 

SAVER 

29 

SAVER 

.30 

SAVER 

31 

SAVER 

3,2 

SAVER 

33 

SAVER 

34 

SAVER 

•35 

SAVER 

36 

SAVER 

37 

SAVER 

33 

SHIP 

2 

SHIP- 

3 

SHIP 

4 

SHIP 

5 

SHIP 

6 

SHIP 

7 

SHIP 

8 

SHIP 

9 

SHIP 

10 

SHIP 

11 

SHIP 

12 

SHIP 

13 

SHIP 

14 

SHIP- 

15 

SHIP 

16 

SHIP 

17 

SHIP 

IS 

SHIP 

19 

SHIP 

20 

SHIP 

21 

SHIP 

22 

SHIP 

23 

SHIP 

24 

SHIP 

25 

SHIP 

26 

SHIP 

27 

SHIP 

28 

SHIP 

29 

SHIP 

30 

SHIP 

31 

SHIP 

32 

SHIP 

33 

SHIP 

34 

SHIP, 

35 

SHIP 

36 

SHIP 

37 

SHIP- 

33 

SHIP. 

39 

SHIP' 

40 

SHIP 

41 

SHIP 

42 

SHIP 

43 

SHIP 

44 



bS£L°ll!§PXY(MSH,WGHON) 

CALL ISVEH (HGH,WbHON> 

LET W(I0R3) = 0 

LET NLdORS) = Q 

LET EXVEH = EX0RB(I0R3) 

IF RQSEF(IOR3) EQ G, RETURN 
C.ET EXORBdORB) = G ' 

LET EXVEH = 0 
LET IFLAG = 1 
GO TO 5 

C 

C HEAVY PaYLOAO IN LOADING QUEUE 

C 

31 LET J = FORSQdORO) 

IF WdORB) EQ 0., RETURN 
LET NX = ISATCJ) 

LET NM = IMOD(d) 

IF EXVEH EQ 0, GO TO bQ 

C 

C PAYLOAD EXTREHELY HEAVY ~ LIMIT TC 1 MONTE CARLO CYCLE 

C 

32 CALL STATUS(NX,NH,7) 

CAL'L DROPQ(J,IORB) 

LET EXVEH = 0 
LET EXOR3dOR8) = 0 
IF QUIT EQ 0, LET TRIGS = 1 

C 

C LOADING ALGORITHM 

C 

30 IF ORBQCIORB) IS EMPTY, RETURN 
CALL GETV(IGO) 

IF IGO EQ 0, GO TO 21 
IF RQSEF(IORB) EQ C, GO TO 21 
IF IFLAG EQ 0, GO TO 20 
IF LQTiMfFORBQdORB) ) GT 1 00 0 ., RETURN 
IF IGO NL 3, RETURN 
LET IGO ■= C 
LET ISEPS = e 

20 LET DUMMY = 0 

21 LET 1=1 
LET NLdORB) = 0 

34 LET W(I0R8) = 0 

DO TO 4C, FOR ALL PAYuO IN ORB'QdOR'B) ' 

IF LQTIH(PAYLD) LT 3000,, GO TO 35 
IF LQTIM(FORBQdORB) ) GT 1000 ., RETURN 

35 LET NQ = I 
LET ILOAO(NQ) = PAYLO 
CALL PROFHARKP) 

IF NQ LT 0, GO TO 10 
LET EX0RB(I0R3) = EXVEH 
IF H(IORB) LT 0,, GO 'TO '50 
LET I = 1 + 1 
IF I GT IL, GO TO 10 

40 LOOP 

'"'IF LQTrM(F0R8Q(I0R8)) LT 1000 . T GO TO 10 
IF IS GT 0, RETURN 





SHIP 

47 

SHIP' 

-4-B 

SHIP 

49 

SHIP 

50 

SHIP 

51 

■ SHIP 

52 

SHIP 

53 

SHIP 

54 

SHIP 

55 

• SHIP 

56 

SHIP 

57 

SHIP 

53 

SHIP 

59 

SHIP 

60 

SHIP 

61 

SHIP 

62 

SHIP 

63 

SHIP 

64 ■ 

SHIP 

65 

SHIP 

66 

SHIP 

67 

SHIP 

63 

SHIP 

- 69 

SHIP 

70 

SHIP 

71 

SHIP 

72 

SHIP 

73 

SHIP 

74 

SHIP 

75 

SHIP 

lb- 

SHIP 

77 

SHIP 

73 

SHIP 

79 

'SHIP- ~ 

SO 

SHIP 

81 

SHIP 

82 

SHIP 

83' 

SHIP- 

84'‘ 

SHIP 

85 

SHIP 

86 

SHIP 

87 

■' SHIF • 

'■ Sb~ 

SHIP 

39 

• SHIP 

90 

SHIP 

91 

SHIP ■ 

92' 

SHIP 

93 

SHIP 

94 

SHIP 

95 

• SHIP 

96 ■ 

SHIP 

97 

SHIP 

98 

SHIP- 

99 

• “SHIP 

lao 

SHIP 

IGl- 



1:11 ■ 

ME 0, GO TO 1C 


C 

C 

C 

60 


70 


80 


RETURN 
50 IF NUIORB) 
GO TO 31 


85 


C 

C 

c 


c 

c 

c 


UPGRADE \/EHICLE TO EXPEND NODE 

IF IFLAG NE 0, GO TO 70 
LET EXVEH = 1 
LET EX0R3(I0R3) = 1 
LET NL(IORB) = 0 
CALL STATUS (NX, NM, 10) 

‘GO TO 21 

IF NOTUG NE 0, GO TO 3? 

LET ISEPS = 0 

IF IGO EQ 3, LET IGO = 0 

LET NL(I0R3> = 0 

LET IFLAG = 0 

GO TO 21 

'IF IGO NE 3, RETURN 
LET NO = NL(IORT) 

IF NQ LT j, GO TO 85 
L.ET IlOAO(I) = PQUE(IO=>3) 

LET .ILOAO(J + l) = CITEN (ILOAO ( J) ) 
CALL PROF(MARKP) 

I'F HARKF NE C, GO TO 8 5 
IF MEXIT (ISEPS) NE 6, GO TO 85 
= 0 


FOR J = { 1) (NQ-1) 


= n 


G, RETURN 
RETURN 


RETURN 


LET ISEPS 
LET IGO = 

LET IFLAG 
GO TO 21 
LET OUMMT = 

IF NO TUG NE 
IF- IS GT .0, 

IF lQTIM(FOR8Q(IOR3) ) GT 1000 
LET IGO = 0 
LET ISEPS =0 ■ ■ 

LET IFLAG = 0 
GO TO 21 
END. • 

ENDOGENOUS EVENT START 

THIS ROUTINE WILL INITIALIZE EACH MONTE CARLO CYCLE 

DESTROY START ‘ 

IF TRIG EQ 0, WRITE ON 6 
format (^1^ ,S27,*CHR0N0L0GICAL 
» SYSTEM STATUS 

* ■ VEHICLE STATUS*) 

IF TRIG EQ G, WRITE ON 6, TIME 

FORMAT(* *,SA‘,M5;2.2,S3',*START SIMULATION*,//) 


TIRE HISTORY .OF 'BASE CTCLE^ 
SATELLITE STATUS MODULE 


SET UP EVENTS FOR NEW SATELLITE LAUNCHES 

DO ‘TO 1C, FOR ALL NEW IN NEWS 
LET IS = SCHSY(NEW) 


iHiP • 

18.1 

SHIP 

104 

SHIP 

105 

SHIP 

.' 106 

SHIP 

107 

SHIP 

108 

.SHIP 

109 

SHIP 

110 

SHIP 

111 

SHIP. 

112 

SHIP 

113 

SHIP • 

114 

SHIP 

115 

SHIP 

116 

SHIP 

117 

SHIP 

118 

SHIP ■ 

119 

SHIP 

120 

SHIP 

121 

SHIP 

122 

SHIP 

12 3 

SHIP 

124 

SHIP 

125 

SHIP 

126 

SHIP 

127 

SHIP 

128 

SHIP 

12.9 

SHIP 

130 

SHIP 

1-31 

SHIP 

132 

SHIP 

133 

SHIP 

134 

SHIP 

135 

SHIP 

136 

SHIP 

137 

SHIP 

138 

SHIP 

139 

SHIP 

140 

SHIP 

141 

SHIP 

142 

START 

• 2 

S.TART 

3 

■ START 

4 

START 

. 5 

START 

6 

START 

7 

: STA’RT 

S' 

: START 

' 9 

S.TART 

10 

START 

11 

START 

12 

START 

13 

START 

14 

START 

15 

START 

16 

START 

17 


4 ^ 



c 

G 

C 

C 

c 

c 

c 


mmmmsilh) = DOWN 

LET SSTAKL) = TOWN, FOR i. = ( FS AT ( ITS YS ( IS ) ) ) ( LS AT ( ITS Y S ( I S) > ) 
IF SCHOT<MzW> LT TIMES, GO TO 10 
CREATE NWSAT 

LET FSAT(MHSAT) = SCHSY(NtW) 

LET o MOD (NWSAT) = 0 
CAUSE NWSAT AT SCHOTINEW) 

10 L OOP 

LET MSEFU) •= 0, FOR X=(1)(NSEPS) 

LET NEXIT(I) = 0, FOR I=(1)(NSEPS) 

DO TO 2, FOR I = (l) (SYORS) 

0 
0 

0 
T 

G 


LET 

LET 

LET 

LET 

LET 

LET 

IF 


SATLF(I) 
lFSAKI) 
SEGSTd) 
TLAST(I) 
SDTST(I) 

NPOSU) = 0 
HOO(I) IS EMPTY, 


1 

2 


DO TO 1, FOR ALL 
LET NUM (MOOSY) 
LET LOADF{MOOSY> 
LET MSTAT(MODSY) 
LOOP 
LOOP 

LET VSHUT(I) 

VTUG (I) 
VPAD(I) 
SUTFY(I) 
SEPFY(I) 
VSEPS(I) 
AVSEP(I) 


GO 


MOOSY 
= 0 
= 0 


TO 

IN 


2 

MOO (I) 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 

IF MO OB 
IF MODS 
LET MOCNT(I) 
LET NOWAR(I) 
LET NOFAL(I) 
IF LIMIT EQ 
LET EXORSd) 


SWDN (I) 
5LDN (I) 
TUGFY d) 
CYAd) = 
TGOd) = 
TGOSY (I) 
BEGSYd) 
TLASYd) 
SDTSYd) 
Nt 
EQ 


~ 1 » 
: ir 
: 

= 1» 
= G. 
= 0, 

= G, 

= 0 
0 . T 
0 ., 

= G 
= 0 
= 0 
n 


- u . , 


MOOS, 
MODS, 
■ = 

= G 


FOR I=(l) (NSHUT) 
FOR 1= (1) (NTUG) 

FOR I=(l) (NPAO) 

FOR 1= (1) (NYEAR) 
FOR I=(l) (NYEAR) 
FOR I=(l) (NSEPS) 

. , FOR I={i) (NSEPS) 
FOR i = (l) (NSEPS) 
FOR I=(l) (NSEPS) 

, FOR 1= (1) (NYEAR) 
POR 1= (1) (3) 

FOr; I = (l) (SY0R3) 

. , FOR 1= (1) (STSTB) 
. , FOR I=( 1) 

FOR I=(l) 

FOR I=(i) 


EX MOO = 


(SrSTn) 

(STSTE) 

(STST9) 

MODB 


REINITIALIZE 
CREATE NEWME 


LET 

LET MOOS = EXMOD 
FOR I=(i) (MITA3) 
u, FOR I=(i> (MITA3) 
= 0, FOR I=(l) (MITAB) 
0., LET LIMIT = 20030. 
= 3, FOP I=(l) (NORBS) 

NOHOO ON ALL SATELLITES 
EVENTS 


SET UP END OF MONTE CARlO CYCLE EVENT 

CREATE TERM 
CAUSE TERM AT 3GG0. 




START 

20 

START 

21 

START 

22 

START 

23 

START 

24 

START 

25 

START 

26 

START 

27 

START 

28 

START 

29' 

START 

30 

START 

31 

START 

32 

START, 

33 

START 

34 

START 

35 

START 

36 

START 

37 

START 

39 

START 

39 

START 

40 

START 


START 

42 

START 

43 

START 

L4 

START 

45 

START 

46 

START 

47 

START 

48 

START 

49 

START 

50 

START 

51 

START 

52 

START 

53 

START 

54 - 

START 

55 

START 

56 

START 

57 

START 

58 

START 

59 

START 

60 . 

■ ST-A-RT 

BI 

START 

62 

START 

63 

START 

64 

START 

65 

START 

66 

START 

67 

START 

69 

START 

6-9 

START 

70 

START 

71 

START 

72 

START 

' 73 ■ 

START 

74 



ooo ooo 


SU'J'^OUTINE STAT(JS(I3»I’^,ISD 
. C 

G IM = <], satellite 
C IM = +, REPLACEABLE MODULE 
C . • 

C 1ST = 1, AVAILABLE 
C 1ST = 2, UP • • 

C 1ST = 3, DOWN 
C 1ST = . 4, ■ LAUNCHED 

C 1ST = 5, ME UPGRADE - • 

C 1ST = 6, SATELLITE RETRIEVED 
C 1ST = 7, PAVLOAD IS TOO HEAVY, NOT' FLOWN 
•C 1ST = 6, WARNING OH MOOUlE . - 

C 1ST = 9, SATELLITE REMOVED' FROM ORBIT 

LET JST = ITSAT(XS) 

LET JSY = ITSYS(IS) 

IF IM NE 0, LET JMD •= NOHOD (-IM) 

LET HALST(IS) = TIME 
LET HALSY(JSY) = TIME 
IF 1ST FQ 2, LET ISTAT = UP 
■ IF 1ST EQ 3, LET ISTAT = DOWN 
IF TRIG2 EQ 1, -GO TO 54 
LET DELTA = 0 

GO TO- (Id, a, A, 13,10, 10 ,10,2,4,13) , 1ST 
8 IF IM EG 0, GO TO 5 
LET MSTAT(IM) = 1ST 
IF 1ST EQ 2, GO TO 2 

NRU Failure-schedule nwsat 


CALL REOUN(IS,IM) • 
LET FREE = DCLTA/300G. 
LET IK = NRU(IM) 


IF DELTA NE 0. , GO TO 
IF EXMOD' NtE 0 , L ET IK 
IF XSATaS) NE 0, LET 


Hi 

= lamod 
IK=XSAT(IS) 


iti IF IK NE 130, GO TO i 

DO TO 200, FOR ALL MOOSY xN MOndS) 
CALL QDMPdS ♦ MODSYjILL) 

2 00 LO'OP ■ 


LET.SSTAT(IS) = OUT 


TEST LAUNCH POLICY ON NRU FAILURE 


IF PDOWN EQ C, GO TO 1 
LET T = . TIME +■ WAIT3 
CALL SAVEKd ,IS) ' 

IF DELTA NE C., GO TO 7 • 

IF SSTAT(IS) NE OUT, LTT SSTAT(IS) 
■GO TO 7 

IF SSTAT(IS) EQ OUT, GO TO IG 
GO TO 6 

LET ISTAT = SSTAT (IS) 


IF NPOS(IS) EG 0, LET ISTAT = OUT 


- DROPPED FROM QUEUE 


5TAT 


STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

1 

( 

( 

STATUS 

1 

ST’ATUS 

1 

STATUS 

1 

STATUS 

1 
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1 

STATUS 

1 

STATUS 

1' 

STATUS 

1 

STATUS 

1 

STATUS 

1 

STATUS 

2 

STATUS 

2 

STATUS 

2 

STATUS • 

2 

STATUS 

2 

STATUS 

2 

STATUS 

2 

STATUS 

2 

status 

2 

STATUS 

2 

status 

3 

STATUS 

3 

status 

3 

STATUS 

3 

STATUS 

3 

STATUS 

3 

STATUS 

3 

STATUS 

3 

STATUS 

3 

STATUS 

3 

STATUS 

4 

STATUS 

4 

STATUS 

4 

STATUS 

4 

STATUS 

4 


STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 


oooo 


^gT^gSJAKlS) = ISTAT 
LET SSTAT(IS). = ISTAT . ^ 

LET MSTAKMODSVJ = 1ST, FDR ALL MOUSY IN MOD (IS) 
IF SSTAT(IS) EQ DOWN, LET SSTAT(IS) = OUT 
IF NPOS(IS) EQ 0, LET SSTAT(IS) = OUT 
IF SSTAT<IS> EQ OUT, GO TO 7 
00 TO 36, FOR ALll MOOSriN MODCIS) 

IF MSTAT(MODSY) EQ 2, GO TO 38 
call REOUN(IS,MOOSY) 

IF DELTA EQ C . , GO TO 7 
LOOP 

LET SSTAT(IS) = UC> 

LET K = 0 
LET KK = 0 

IF TRIG + TRIG2 EQ 1 , GO TO' 13 

DO TO 39, FOP I={FSAT(JSY)) (LSAT(JSY)) 

IF SSTAT(I) EQ. UP, LET K = K + 1 
IF SSTAT(I) EQ DOWN, LET KK = KK +1 
LOOP' ■ 

LET IPOL = POLON(JST) 

LET IT = DOhN 

IF IPOL EQ 0, LET IT = OUT 

IF IPOL EQ 1, LET IT = OUT ' 

IF IPOL EQ L, LET IT = OUT 

IF TIME GE TGOSY(JSY), LET IT = OUT 

JF,.K. N£, 0, LET II. = O0_WN 

IF KK NE C, LET IT = DOWN 

LET STAT (JSY)-- IT 

xF K GE NFUP(JSY), LET STAT(JSY) = UP 
CALL. OUTAGdS, JSt) _ 

IF TRIG Nc 0. RETURN ' 

IF TIME LT TIMES, RETURN 

call STPRT(1S,IM, JSY, JSTjJMD, ISTAT, 1ST) 

RET.URN„. _ . _ 

END 

SU3ROUTINE OUT AG ( IS, JSY) 

00 COMPUTATIONS FOR SATELLITE AND SYSTEM 
AVAIL ASILITIES AND DELAY TO' RESTORE ENTER VAlS 


IF TLAST(IS) EQ 0., GO TO 5L 
.IF SSJAT(IS).. EQ UP, GO TO 51 
IF TLAST'crS") lT'CV, ’G0“‘T0"S2 
LET SDTST(IS) = SDTST(IS) *■ TIME - 
LET TlAST(IS) = “TIME 
GO TO 52 

IF TLAST(IS)' GT C.,'GO"TO 
LET A = TIME + TLAST(IS) 

LET TLAST(IS) = TIME 
IF A EQ 0., GO TO 52 
LET DNTsTCfS) = 'ONTST(IS) 

LET C223(IS) = C223(IS) + 

IF N223 (IS) GT A, LET N2 
IF._ X22 3 (IS>..LT A,_LET X2 

SYSTEM STATUS 


TLAST (IS) EQ 0., 
SSJAT(IS).. EQ UP, 
TLAST'crS") lT'CV, 

■ SDTST(IS) = SOT 
r TlAST(IS) = “TI 

TO 52 

TLAST (IS)' GT C., 

■ A = TIME + TLAS 

■ TLAST(IS) = TIM 


TLAST (IS) 


GT C.,'GO"TO 
+ TLAST(IS) 

= TIME 


S> +■ A“' 

+ 1 1 

N223 (IS) = 
X223(IS) = 


ORIGINAL PAGE K 
jOI’ POOR QUALITY 
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TIME - TLASY(IY) 


LET N2S3(IY) = 
LET :<2G8(IY)- = 


LET lY = JSY 

IF TGOSY (lY) EQ Ot GO TO 5L 
IF STAT(IY) EQ UP, GO TO 53 

- TLASYdY, 

LET TLASYdY) = -TIME 
GO TO 54 

IF TLASYdY) GT 5., GO TO 54 
LET A = TIME + TLASY<IY) 

LET TLASYdY) = TIME 
IF A EQ 0. , GO TO 54 
LET ONTSY(IY) = ONTSY(IY) *■ A 
LET C208(IY) = C208(IY) + 1. ^ 

IF NEOBdY) GT A, LET N2S3(IY) = A 
IF X208 dYy LT A, LET X2G8(IY)- = A 
RETURN 

iuBROUTINE STPRTdS, IM, JSY ,J__ST, JMD,ISTAT,IST) 

PRINT STATUS LINE FOR ALL OPTIONS 

IF TRIG2 EQ 0, CALL FILES (IS, IM, I ST) . 

IF TRIG2 EQ 0, write 0>T 6 
FORMAT (SI) 

LET IP = IS - FSAT(JSY) + 1 

LET NSY = SYNAM(JSY) ... 

let NSS = STAT(JSY) 

LET KST = SNAME(JST) 

LET KSS = SSTAT(IS) 

LET T£ = TIME 
LET r = DPART(TE) 

LET J = HPART(TE) + 1 

IF^IM EQ^O^^GO^H ( 11 , 12^12_j, 14, 14,.16y_i7il7j_18,19) _IST 
LET'MST = MNAMECJMOT" 

LET HN = MNO(IM) 

GO TO ( 21,22,22,24,25, 25,27,26,22,29) ,I3T 
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OUTAG . 
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OUTAG ■ 
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OUTAG 

31 

OUTAG 

32 

OUTAG 
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OUTAG 

34 

. OUTAG 

35 

OUTAG 

36 

OUTAG 

37 

OUTAG 

' 38 

OUTAG 

39 

OUTAG 

40 

STPRT 

2 

STPRT 

3” ’ 

STPRT 

4 

STPRT 

5 

STPRT 

6 

' •• STPRT' 

~T 

STPRT 

8 

STPRT 

9 

STPRT 

— T r» r»T — ' * 

10 

'~^A — 


PRINT satellite STATUS' 

FORMAT(S5d5;*:»;ii!»’?^^I2'Is3?A6,S4,A6,I3,Sl,A6.S4.^AVAILAJLE*> 

R FT URN 

RETURN _ .. 

|pM|T?S5ti5;^!*;in^'.!^?i2^l3^A6.S4,A6,I3,Sl,A6,S4,*LAUNCHE0») ■ 

F0RMATd5-tii;^I*;iiI»'l'^2^S3fA-6',S4rA-6VIT^ 

RETURN 

” F0MAT<SS^ii;*:»:iiUddi:s3:A6ls4;A6d3,Sl,A6,S4,YSATELaT^ TOO 
♦HEAVY ++> + + + + <-fUFi+it-ff + + + T-f + +'f>TT-Wr+ + + + + + f++ + ») 

RETURN 
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STPRT 
STPRT 
■ STPRT'. — 
STPRT 
STPRT 
STPRT . 

■' STPRT 

STPRT 

STPRT 

STPRT 

--STPR1 

STPRT 
STPRT 
STPRT 
■STPRT ■ 
STPRT 
STPRT 
STPRT 
STPRT 
STPRT 
STPRT 
STPRT 
— STPRT-" 
STPRT 
STPRT 
STPRT 
-STPRT' ■ ' 
STPRT 
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l6,S4,A5 ,13, Si, A6,S4, ♦REMOVED*) ITP^f 

RETURN STPRT 

19 WRITE ON c,I,J,K,NSV ,NS3,IP,KST ' ‘ STPRT 

F0RMAT(S5,I5,*.*, I2,*.*,I2,S3,A6,S4,A6,I3,S1,A6,S4,*SATELLITE REQU STPRT 

♦IRES EXPENDED VEHIClE ’ *) STPRT 

RETURN STPRT 

STP RT 

PRINT MODULE STATUS STPRT 

STPRT 

21 WRITE ON e>,I, J,K,NSY,HSS,IP,KST,KSS,MN,MST STPRT 

FQRMAT(S5,I5,*.*,I2,*.*,I2,S3,A6, S4, A5,I3,S1, A6,S4,A6,I3,S1,A6,S4, STPRT 

♦♦AV AiLASLE*) STPRT 

RETURN STPRT 

22 WRITE ON 6 , 1 , J ,K, NSY , NSS , I P , KST , RSS, MN, 1ST, I S TAT STPRT 

FORMAT(S5,I5 ♦♦.♦,I2,*.*,12,S3, A6,S4,A5,I3,S1, A6,S^4,AB,I3,S1,A6,S4, STPRT 

♦A6) STPRT 

IF FREE tQ 0, RETURN STPRT 

WRITE ON 6 STPRT 

FORMAT( ♦+*,S7‘i,*(FREEDlE) ♦) ' ' ’ 

LET FREE = C 
RETURN 

WRITE ON ,6,1, J,K,NSY,NSS, IP, KST,KSS,MN,MST 
FORMAT(S5,I5,*.*,I2,'*.*,I2,S3, A6,S4,A6,I3,S1, A6,S4,A6,I3,S1,A6,-SV, ‘STPRT " 

♦♦LAUNCHEP*) 

IF FREE EQ G, RETURN 
WRITE ON 6 

FORMAT(*+*,S78,*(F'REESlE) ♦) 

LET FREE - G 
RETURN 

25 WRITE ON 6 , 1 ^ J ,K, NSY ,NSS , i P , KS T , KSS , MN, HST 
F0RMAT(S5,I5,^.*,12,*.<‘,'I2,S3 ,Ad,S 4,'A6,I3,S1, A6 jS4,A6,I3,Sl, A6TS2fr'STPRT~ 

♦♦ME UPGRADE*) 

RETURN 

26 WRITE ON 6 ,I , J ,K, NSY ,N SS,i P , KST , KSS , MN, NS T 
F0RMAT(S5,1E , ♦ .♦ , 12 , ♦. ♦ ,12 , S3 , A 6 , S4 , A6iI3,S-I , A6 ,'S’4 ,'AV, I3TS'1, A6 ,S 

♦♦WARNING*) 

RETURN 

27 WRITE ON 6 ,I , J ,K , NSY , BLANK, I P, KST , BLANK, MN, MST 

FORMA T(S5, 15 , 1 2, ♦. ♦ , 12 , S 3 , A 6 , S4“, A6 ,IT,-S r,‘A6 ,S4 , A6 , 13 , Si V A'6-, S 

♦♦MODULE TOO HEAVY ++ ♦• + + + ++ 1 + + ++ + <- + + 4- + 1 + + + + + ++++ + + ++ + ++ *- + + + + + -'f> 

RETURN 

29 WRITE ON 6 , 1 , J ,K , NSY , NSS , I P, KST , KSS, MN, MST 

tl A T ^ rr *T*»r it it -r ^ i# * ir“* rr'-t- -jr-^ — • —— 
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RETURN 

END 

ENDO'GEMOTJS EVENT TERM ' - - - 

THIS ROUTINE WILL BE ACTIVATED AT THE END OF A MONTE CARLO CYCLE 

'I’t rtAV Restart the program for the ne>:t cycle or "uause the“ 
termination of the run with statistics. 

destroy term ■ ‘ . ... _ 

IF trig £Q 0, write ON 6, TIME 
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SIMULATION-) 

CLEAN UP QU£UES AT END OF MONTE CARLO CYCLE 


let trig = TRIG + 1 
DO TO 6, FOR J=(l) (NORBS) 

IF ORBQ(J) IS EMPTY, GOTO 6 

DROP FREEBIES 

LET I = J 

00 TO 20, FOR ALL PAYLO IN ORBQ(I) _ 

IF LQTIM(PAYLO) GT 3000., CALL DROPQ ( PAYL 0, I ) 

20 LOOP 

LET I0R8 = J 

IF 0R8a(J) IS EMPTY, GO TO 6 
LOADING QUEUE CONTAINS TRASH -- STOP RUN 
WRITE ON 6 

FORMATtSS,- RUN STOPPED DUE TO DATA IN LOADING QUEUE AT END OF 

-YCLE*) 

DO TO 2, FOR ALL PAYLO IN 0R3Q(I0RB) 

LET I = SNAMEaTSAT(ISAT(PAYLD) ) } 

LET A = LQTIM(PAYLD) ^ . 

IF IMODCPAYLO) £Q 0, WRITE ON 5, I, A _ 

FOR MA T ( SG . -S ATELL I T£ - SINCE -,Ms.2»2) 

IF IMOO<PAYLO) NE 0, WRITE ON g ]-« NAME (NOMOO ( IMOD ( PAYL D 
FORMAT( S5, -NODULE - -,A6,- ON SATELLITc - -,A6,* SINCt. -,M5.2.2) 
2 LOOP 

LET TRIGS = 1 
6 LOOP 

GATHER MONTE CARLO END OF CYCLE STATISTICS FOR VEHICLES/S ATELLITES 

10 CALL MCVEH 
CALL MChCD 
call MCSAT 

CALL MCSYS ’ ’ - . 

IF TRIG GE TRIGS, GO TO G 

INITIALIZE ANOTHER CYCLE 

CREATE START 

let time = 0, 

CAUSE START AT 1 . 

IF TRIG GT 1 ♦ RETURN' 

call TERE»/ 

call TERVl 

CALL TERY2 

RETURN 

FINAL OUTPUT 

5 CALL TERSY 
CALL TERU 


TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM' 
TERM 
TERM 
TERM 
■ TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 
TERM 


15 

17 

18 
iS 
20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 
35" 

36 

37 

38 

39 

40 

41 

42 

43 • 

44 

45 

46 


ui 

N> 

I 


TERM- - 

-tfT — ■ 

TERM 

48 

TERM 

49 

TERM 

50 

TERM -• 

■ “ -51 

TERM 

52 

TERM 

. 53 

TERM 

54 

TERM 

- • 55 

TERM 

56 

TERM 

57 

TERM 

58 

TERM 

• -59T - 

TERM 

60 • 

TERM 

61 

TERM 

62 

TERM 

63 • • 

TERM 

64 

TERM 

65 

TERM 

66 

-term 

67 

TERM 

68 



c 
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..G 

C 

c 
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c 
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mt 

CALu TERVi . 

STOP 

END 

SU= ROUTINE TEREV 

PRINTS STATISTICS OF EVENTS 

LET A = TRIG 

RETURN _ . , 

END’ 

SUBROUTINE TERVl 

OUTPUT STATISTICS FOR FLIGHTS PER YEAR 

WRITE ON 6» TRIG, TIMES, TIMES ^ 

FOkMAK »i*,S7,»STATISTICAL SUMMARY F0R»,I4,* MONTE CARLO CYCLES FO 
*R THE YEARS*, D5,^ TO*, 05/) 

LET A = TRIG 
WRITE ON 6 

F0RMAT(S25,*FLIGHT SUMMARY */Sf8 ,*SHUTTLE* ,S15 ,*TUG* ,Si7,*SEPS^/ 

** YEAR MIN AVG MAX MIN A VG MAX MIN AVG 

♦MAX*) 

DO TO iO, FOR I=(1)(NYEAR) 

LET TI = I - 1 

LET J = TIMES * TI 

IF MAX90 (I) EQ 0, GO TO 10 


LET B 
LET 3 
LET C 
LET C 
LET 


LET □ = 


SUM39(I) 

B/A 

SUM9G (I) 

C/A 

SUM86(I) 

D/A - - - - - _ 

WRITE ON 6, J, MIN90(I) , C, M A X90 ( I) , MIN39 ( I ) , B.MAX39 ( I ) , 
♦ MIN36(I) ,0,MAX36(I) 

FORMAT (1 8, 18, 04.1, IS ,18,04.1,16,18,04.1,16) 

ID LOOP 

ITFLT 
e/A 
IFSUT 
C/A 
IFSEP 
D/A 

6,NFSUT.G,MF3UT,NTFLT,8,MTFLT,NFSEP,Q,MFSEP 
FORMAT (* PROGRAM*, 18, 0 4. 1,1 6, 1 3, 04. 1,16,16', 04.1,16) 

DO TO 5, FOR I = (l) (3) 

IF TRIG LT TRIGS, GO TO 5 


LET B 
LET 3 
LET 
LET 
LET 
LET D 
WRITE 


C 

C 

0 


ON 


IF MTD(I) EQ iOQO., LET MTO(I) = 0. 

IF MCVA(T) EO 1000., LET MCVA(I) = 0, 

IF TCVATI) EQ G., GO TO 5 ' - . 

LET VTD(I) = VTO(I)*3bO ./TCVA(I) 
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G 


tif mup-r-MtmiL 

= XTO(I)»360. 

LET E = C 
LET E = 3 
LET E = D 
= TCVA(I) *1D0./E 
= MCVAtD^lCCT/'E' 
= XCVA(I)»10C./E 


LET XTO(I) 
IF I EQ 1, 
IF I £Q 2, 
IF I EQ 3, 
LIT. TCVLAil.) 
LET MCVA<I) 
LET XCVAd) 
LOOP 


WRITE. ON 6,MCVA(1) ,TGVA( 
MG\/A(3) ,TCVA(3)',XC\/Ar3) 


TGVA(l) jXCVATl) ,MCVA(2),.TCVA(2) ,XCVA(2) , 


FOR MAT {* DPERCENT*, D&. 1,204. 1,06.1, 20V. ItOe.l, 2D A. 1) 
WRITE ON 6,MTD<i) ,\/TO(i) ,XTDU) ,MT0(2) ,VT0{2) ,XT0(2) 
* MTD(3) , VT0(3) ,XTD(3) 

F0RMAT(*0 DELAY » ,06 . 1 , 2D4.'i , 06 . 1 ,20'4 . 1 ,D6. 1 , 2D4. 1) 
LET. EX = EXTUG/A 
IF EXTUG NE 0., WRITE ON 6, EX 

FORMAK^G ' ‘ 

RETURN ■ 

END 

SUBROUTINE TERV2 


AVERAGE.no. of expended TUGS = ♦,05»1> 


OUTPUT ’ STATISTICS ■ FOR AVERAGE WEIGHT DELIVERED TO' ORBIT ' 

WRITE ON 6 

F0RMAT<’fl*,S3G,»0RSIT TRAFFIC SUMMARY^^/fO^jSlS.^AVERAGE FLIGHTS' 
*15, '^AVERAGE UP WE IGHT* , SO ,* SHUTTLE ONLY* /S3 ,* ORBIT “ SHUTTLE-' ' 
*G SEPS SHUTTLE TUG SEPS LOAD FACT0R*/S1) 

LET A = TRIG 

00 TO 3C , FOR I=(l) (N0R3S) 

IF ORBID(I) EO OV GO TO 3G ' ' 
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LET 
LET 
LET 
LET 
LET 
LET 
IF 
IF 
IF 
IF 
IF . 
IF 
LET 
LET 
LET 
tET 
LET 
LET 
LET 
IF J 


G = 0. 

0=0. 

E = 0. 
F3 = Q. 
PC = 0. 
FO = 0. 
-WSHU'T (I) 
WSEFS (I) 
WTUG (I) 
WOSUT (I) 
WOSEP (I) 
WOTUG (i) 
CSHUT(I) 
CSEPS(I) 
CTUG (1) 
CDSUTd) 
COSEP(I) 
CDTUGCI) 
J = 

EQ 


NE 0., LET 
NE 0., LET 
NE 0. , LET 
NE 0., LET 
NE 0., LET 
Nc 0 ; , L ET' 

= CSHUT(I)/A 
= CSEPSCD/A 
= CTUG (D/A 
“="C0'5UT{n'/C 
= COSEPCI) /A 
= COTUGU) /A 
RQSUT(IORB) 

0,"L'ET J''=‘l 


C = WSHUKD/CSHUTd) 

0 = HSEPSTD/XTSEPSar- 
E = WTUG (D/CTUG (I) 
FB = W0SUT<I)/G0SUT(D 
FC = WDSEPd) /COSEP(I) 
FD’ = WDTOGd)7CDTUG(I) 
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31 


LET B = W3HUT(I)/WC0NV(J) 

WRITE ON o,OR'3ID(I) ,C3HUT(I) , CDSUTd) , CTUG ( I) , COTUG d ) ,GSEPS(I) 

* COSEPd) ,C,F8,£,FD,0,FC,B 

F OR MA T( S3, A6, 04.1,*/*, 204. l‘,*/*,2D4“.l, *7*, 0471', D12-;l, •*•/*, 206. r, 

♦ */*i206.1,*/*,D6.i,09.2) 


TERV2 

TERV2 

TERV2 

TERV2 

-TERV2 

TERV2 


32- 

33 

34 

35 

-36-- 

37 


I 


'I?*' 



30 


C 

C 

C 


k^9l)RN 

END 

SUBROUTINE TERSY ‘ ' 

OUTPUT STATISTICS FOR SYSTEMS/S A TELL I TES 

WRITE ON 6 • 

FORMAK^l*) 

LET A = TRIG 
LET TSATS = G. 

LET EQSAT = 0 . • ' ’ - - . 

DO TO 13, FOR I=(l)(STSTe) 

IF SYNAH(I) EQ 0, GO TO 13 
IF FSAT<I) EQ 0, GO TO 13 

WRITE ON 6,SYNAM<rr ‘ ‘ 

FORMAT(»0 STATISTICS FOR SYSTEM - ♦,A6) 

00 TO 12, FOR J=(FSAT(I)) <LSAT(I) > 

LET TRES = G. 

lET ICEQ = C . - . 

IF SORTEdTSAK J) ) NE 0., GO TO 110 
IF MOD(J) IS EMPTY, GO TO 12 • 

WRITE ON o 

FORMATS ♦O MODULE MIN AYG "MAX KIN 'TLT AVG'FLT "KAX FLT») 
DO TO 11, FOR ALL MODSY IN MOD(J) 

LET 8 = SUMNU(MOOSY) 

LET B = 3/A 

IF NRUCMOOSY) NE 100, LET ICEQ = ICEQ' fl 

LET TRES = TRES + 3 
LET 0 = MINLF(MOOSY) 

LET E = SUMLF (MODSY) 

'LET'S' = E7TT — 

LET F = MAXLF (MODSY) 

LET 0 = 0/100. 

LET E, = E/IOG.. 

LET F = F/iCC. 

EQ 0 


WRITE ON 6, MNAME(NOMOD(MOOSY)) 


11 

ilD 


IF MAXNU (MODSY) 
iNRU(MODSY) 

FJ)RMAT(SJ,A6,I3> 

IF MAXNU (MODSY) NE 0, WRITE G'N 'E', ' MTY ATIE lN'OMOD'(MOErSY)T 
NRU (MODSY) , 

MINNU(MODSY) ,B, 

MAX.NU( M_ODSY) ,0,E,F 

FCRMAT(S3, A6, 213, OU. 1,16,305.2) ' 

LOOP 

LET S227(J) = S227(J)/A 
LET 8 = NDEP(U) 

LET B = B/A 

WRITE ON &,SNAME(ITSAT(J)) ,3,N227(J) ,S227(J) ,X227(J) 
FORMAK^^ SATELLITE»/S3,A6, S6,0A.1,S6,3D5.2) 

IF SORTS (ITSAT(J) ) NE 0., GO TO 12 
LET TSATS = TSATS «■ 8 
LET E = ICEQ 

IF E NE 0., LET TRES - TRES/E 
LET TRES =TRES+3 
WRITE ON 6, TRES. " 

FORMAT(* EQ SAT»,S6, 0^,2) 


mu 

TERV2 

■ TERSY' 
TERSY 
TERSY 
TERSY 
TERSY 
TERSY 
TERSY 
TERSY 
■TERST" 
TERSY 
TERSY 
TERSY 

■“TER^~ 
TERSY 
TERSY ' 
TERSY 
TERSY 
TERSY 
TERSY 
TERSY 
TERsr- 
TERSY 
TERSY 
TERSY 

■ TERSY" 
TERSY 
TERSY 
TERSY 
TET?Sy~~' 


AO 

■ 2' 

3 

4 

5 

6 

7 

8 
9 

11 

12 

13 

""14" 

15 

16 
17 

~18 

19 

20 
21 

"■22““ 

23 

24 

25 

--ZS - 

27 

28 
29 . 

:-3r 



I 

I 


TERSY 

31 ■ 

TERSY , 

32 : 

TERSY- 

33 

"■ TFRSY 

“■ 34 - 

TERSY 

35 

TERSY 

36 

TERSY 

37 

" TERSY 

38' . ; 

TERSY 

39 

TERSY 

40 

TERSY . 

41 


“TERSY 


TERSY 

43 

TERSY 

44 

TERSY 

45 

TERSr “ 

“46 

TERSY 

47 

TERSY 

48 

TERSY 

49 

TRRSY 

50 " 

TERSY 

51 

TERSY 

52 

TERSY 

53 

TERSY ~ 

• 54 - 

TERSY 

55 



12 


tiJ l8§if<a)-S"ISM?uI5F?A 

WRITE ON 6,MINSL(J) ,SUMSL(J) ,MAXSL(J> 
FOi<MATt^Q SATELLITE TOTAL FLIGHTS »,3D5.2> 
IF C223(J) EQ n., LET C223CJ) = 1. 

LET F = PERST(J) /A 

LET E = DNTST(J) ♦SGO . /C22_3 ( J) 

IF N223 (J) EQ 1000«, LET N223(J) = 0. 

LET N223 (J) = N223< J) '»^36C , 

LET X223 (J) = X223(J)*3oO. 

WRITE ON 6,N216( J) ,F,X216(J) 

FORMAT(‘»0 PERCENT SATELLITE 
WRITE ON 5,N223( J) iE,X223( J) 

FORMATC^O DELAY INTERVAL TO 
LOOP 

LET SYLF(I) = -SYLFCDAA' 

WRITE ON 6,NSYLF{I) ,SYLF{I) ,XSYLF(I) 


AVAIL. »,305.2) 
REST0RE»,305. 2) 


FLIGHTS 
13 


i. 


»,3D5.2) 


C 


16 

13 


C 

C 

C 


FORMAT (»0 SYSTEM Tof AL 
IF FSAT(I) EQ 0, GO TO 
LET F = PERSY(I) /A 
IF C208(I) EQ 0., LET C2C8(I) = 

LET E = DNTSY(I) *360./G2C8(I) 

IF N208(J.) EQ 1080., LET N208 (I) = 

LET N208 {I) = N2D8{I>»360, '' 

LET X20 8 (I) = X208(I)*360. 

IF X200 (I) EQ 0., GO TO 16 
WRITE ON &,N20a(I) ,F,X200 (I) 

FORHAT(^0 PERCENT SYSTEM AVAILABLE""^ ,305. 2) 
WRITE ON 6,N208(I) iEj,X208{I) 

FORHATC^O DELAT INTERVAL TO RESTORE 
WRITE ON 6 

FORMA'T(» 

LOOP 

WRITE ON 6, TSATS.EQSAT 
F_0 R M A T 0 1 0 T A L S A T EL LI T £ S_» D 4 .1 / ♦ 0 

RETURN 
EMO 

SUBROUTINE TERMQ 

OUTPUT STATISTICS FOR MODULES 


305.2) 


EQU. 


WRITE ON 6 • • 

FC,RMAT(^i MOnULE SUMMARY»//S20 
»* NAME MIN AVR MAX 

*IN . AVR MAX»/) 

LET A = TRIG 


, »W ARN» , S2 4 , » FAI , S 2 2 , » REPL 


ifN^ 


'Oa'TO 15, 
IF MNAME(I) 
IF Si21(I) 


FOR I=(1J (MITABT ' ' 

EQ 0, GO TO 15 
+ S125(I) <■ 3129(1) 


LET B = S121 (I) 

LET B = B/A 
LET C = S125(T) 

LET C = C/A 
LET 0 = S129(I> 

LET O' = D/A 

IF N125(I) EQ lOCO, LET N125(I) = 0 


EQ 0, GO TO 14 


TERSY 58 

■TERSY 59 

TERSY 60 

, TERSY 61 

TERSY 62 

TERSY 6S 

TERSY 64 

TERSY 65 

TERSY 66 

TERSY 67 

TERSY 68 

TERSY 69 

TERSY 70 

TERSY 71 

TERSY 72 

TERSY 73 

TERSY 74 

TERSY" ■ 75 

TERSY 76 

TERSY 77 

TERSY 76 

■•■TERSY"*” "79- 

TERSY 80 

TERSY 81 

TERSY 82 

— ■ -TERSr' - • 83- 

TERSY 84 

TERSY 85 

TERSY 86 

*) •— TERSY 87 

TERSY 88 

TERSY 89 - 

SATELLITES *,D4.2 TERSY 90 , 

TERSY "91 

TERSY 92 

TERSY 93 

TERMO 2 

- TERHO ^3-”" 

TERMO 4 

TERMO 5 

TERMO 6 

ACE*/ TERMD 7 

AVR' MAX M TERMD 6 

TERMO 9 

TERMD 10 

" TERMD- i.1 — 

, TERMD ’12 

TERMO .13 

TERMO 14 

TERMO* • * *15 — 

TERMD 16 

TERMO 17 

TERMO 18 

.... • - i-g— 

TERHO . 20 


I 

Ln 

r 



ooocsoou .000 


iP mm\ la im; te mmi = 8 

WRITE ON 6,MNAME( I) ,N125(I) ♦C,X125m,N129(I) ,0,X 129 < I ) , N121 (I > » < 
♦X12KI) 

F0=^MAT(S2, A6, 16,07.1 ,219 »D 7. 1,219,07.1,19) 

GO TO 15 

!•* WRITE ON 6,MNAME(I) 

F0RHAT(S2, A6) 

15 LOOP 
RETURN 
END 

ENDOGENOUS EVENT WARN 

THIS ROUTINE WILL ATTEMPT TO SCHEDULE THE LAUNCHING OF A REPLACEMENT 
MODULE. IF successful, THE CORRESPONDING FAILURE MUST 3E 8L0CKE1 
IF IT EXISTS 

LET lEVWA = lEVWA + 1 ' ' ‘ 

IF TIME G£ TIMEG, LET EXMOO = MOOS 
LET IS = PSAKWARN) 

LET IM = PMOO(WARN) 

IF sstat(is) ec'out, return 

LET NOWAR(NOMODdM)) = NOWAR(NOMOD (IM) ) + 1 
CAlL STATUS(IS,IM,8) 

IF XSAT(IS) EQ 103, RETURN 
LET DELAY = WSATU 

IF TIME + DELAY GT TGO(IS), RETURN 
CALL REDUN(IS,IM) 

IF DELT6„GT O.j RETURN _ „ _ 

CREATE QWAIT 

LET PSAT (QWAIT) = IS 

LET PMOD (QWAIT.) = IM ' 

__ .LEJ...TIMEAJ_aw,AIT) =_J)£LAY . . 

CAUSE QWAIT AT TIME + WAlTA 

RETURN 

END 

SUBROUTINE WEI BUV lAW, JW , T_W , AFj, BF ,Tf > 

WEIBUL FUNCTION FOR FAILURE ANO WARNING TIMES 


G'CT‘ T-O- Sr"" 
0., GO TO 


LET TW = 0. 

Trw^'Q"o ; , 
if timec eq 

LET AX = TIMEC 
GO TO 2 

LET AX = RANFTN) 
LET AX = -ALOG(AX) 


i., LET AX 
AW*AX 

0 . 

0 . , RETURN 


IF BW NE 
LET TW = 

LET TF = 

IF AF EQ 
LET AX = TW/AF 
IF 3F NE 1., LET AX = 
LET AN3 = 'EXPT-AX) 

IF TIMEC EQ 0., GO TO 


AX*»(1./3W) 

AX<^»BF 

3 


Till 


1, TERMO 

23 

■ "TERMD ““ “ 

24“ " 

TERMO 

25 

TERMO 

26 

TERMO 

27 

TERMOr 

28 

TERMD 

29 

TERMD 

30 

TERMO 

31 

■“‘■WARN“ - 

z- 

WARN 

3 

WARN 

4 

WARN 

5 

r- W'ARTT 

„.g. . 

WARN 

7 

WARN 

3 

WARN 

9 

—WARN" ■' 

•13"- 

WARN 

11 

WARN 

12 

WARN 

13 

WARN' 

"14 

WARN 

15 

WARN ' 

16 

WARN 

17 

“WARN ■ 

IF 

WARN 

19 

WARN 

20 

WARN 

21 

■ TTA'RfT' ‘ ■ 

“E2: 

WARN 

.25 / 

WARN 

24 

WARN 

25 

—TfA'RIT 

26 

WARN 

27 . 

WARN 

28 

WEIBUL 

2 

•WEIBUL 

“F ““• 

WEIBUL 

4 

WEIBUL 

5 

WEIBUL 

6 

— WETIBOt 


WEIBUL 

8 

WEIBUL 

9 

WEIBUL 

10 

-"“WEIBUL* 

■'ll 

WEIBUL 

12 

WEIBUL 

13 

WEIBUL 

14 

WEIBUL 

15 

WEIBUL 

16 

WEIBUL 

17 

WEIBUL 

18 

• WEIBUL" •• 

“I9‘ “ ■ 

WEIBUL 

20 


I 

-0 

I 



OQOOOOOO 


= TIMEC 


^ANF(N) 

-AL-0G(AX*AM3) 

1,, LET AX = AX*+(1./8F) 

af-^ax 

0 . 

0., RETURN 
EQ P., GO TO 6 
TIMEC 


RANF (N) 
“ALOG(AX) 
1., LET AX 
AF^AX 


= AX*»{1./3F) 


3 LET AX = 

4 LET AX = 

IF 3F NE 
LET TF = 

RETURN 

5 LET TF = 

IF AF EQ 
IF TIMEC 
LET AX = 

GO TO 7 

6 LET AX = 

7 LET AX = 

IF 3F NE 
LET TF = 

RETURN 
END 

Pf^F0RM(0VL£G,PLEG,80IL, NLEG,WPER,NEXIT,ERFLG) 
C0fiM0N/TlJG\/EH/TYPE,NSTG,'SPa‘R{3) ,WSC3) ,WPA(3-) ,ETSP r3) - 
.REUSE(3.,HG»,TR 

INTEGER SPAR 

COMMOiySEPVEH/SEPS,rtS,E,P,SISP,SEPK,SR,TSEP 

* »CriEM 

* ,QT 

. INTEGER SEPS 

REAL MS ■ “ ■- 

DIMENSION DVLEG(iO) ,PL£G(iO) 

DIMENSION OVEFFTIO) 

INTEGER ERFLG 
REAL MPLA,MPL0 
IF (NSTG .LT. 0) STOP 

PEiRF - SETS UP AND CHOOSES THE SPECIFIC 

P'ERFCRKANCE SUBROUTINE TO BE EXECUTED 
SSHOT - SLINGSHOT - LIQUID UPPERS 
SSLQD - SINGLE STAGE LIQUID 
TRNKC - TRANS KICK - SOLID UPPERS 
SEPSIM- SEPS STHULATOR- " 

IF ( SEPS .NE. 0 ) GO TO 40 
DO 5 I=i,NLEG 

5‘ OVEFF(I) = DVLEG(I)»{1.+TR)-'- ' ~ "" - 

IF ( NSTG .GT. 1 } GO TO 10 
CALL SSLQ0<0VcFF,PLEG»8CIL.NLEG) 

GO TO 50 

10 00 20 I = 2, NSTG . 

2a c‘Sn}!S8?"’ TO 30 

CALL SSH0T(DV£FF,PLEG,NLEG) 

GO TO 50 

30 CALL TRNKC (OVEFF, PLEG) 

GO TO 50 

40 MPLA = PLEG(1> 

MPL3 =“PLEG{MLEG) 

CALL SEPX (MPLA, MPL3 , ERFL G, NFXIT ) 


WliiiJt 


WEIBUL 

23 

•WEI 3UL 

24 ■ ■ 

WEIBUL 

25 

WEI3UL 

26 

WEIBUL 

27 

WEIBUL 

" 28" 

WEIBUL 

29 

WEIBUL 

30 

WEIBUL 

31 

WEIBUL - 

" 32 

WEIBUL 

33 

WEIBUL 

34 

WEIBUL 

35 

•WEIBUL 

36- 

WEIBUL 

37 

WEIBUL 

38 

PRFORM 

3 

- /TU6VEH/' 

^ 

/TUGVEH/ 

3 

/TUGVEH/ 

4 

/TUGVEH/ 

5 

~ TSEPVEH/' 

2 ' 

/SEPVEH/ 

3 

/SEPVEH/ 

4 

/SEPVEH/ 

5 

/SEPVEH/ 

■ S-- 


PRFORM 
PRFORH 
PRFORM 
PRFORH' 
PRFORM 
PRFORM 
PRFORM 
"RRFORM 
PRFORH 
PRFORM 
PRFORM 
PRFORM 
PRFORM 
PRFORM 
PRFORM 
PRFORM • 
PRFORM 
PRFORH 
PRFORM 
-RRFORM- 
PRFORM 
PRFORM 
PRFORM 
" PRFORM 
PRFORM 
PRFORH 
PRFORM 
■ PRFORM 
PRFORM 


6 

7 

8 

- -g- 
10 
11 
12 
1:3 

14 

15 

16 
17- 
18 

19 

20 

22 

23 

24 

"25- 

26 

27 

28 

29 

30 

31 

32 

33 ' 

34 


I 

(ji 

00 

I 



oooooooooonoortoonooo ooo 


50 100.» (l.r-AMAXKFEAS(i) ,FEAS(2) )) 

RETURN 
END' ■ 

SU3R0UTINE C0NEC( NS, NS/EH, ISESP) 

THIS SOUTINE WILL GET THE NECESSARY VEHICLE DATA 

COMMON/SEPVEH/SEPS,MS,£,P,SISP,SEFK,SR, TSEP 
* ,CHEM 

» ,DT 

INTEGER .SE^^S 
REAL MS 

CCMMON/TUGVEH/TYPE,NSTG,SPAR(3) ,WS(3) ,WPA (3) ,EISP(3) 

X ,REUSE (3) ,WGA, TR 

X,FEAS{2) 

INTEGER SPAR 
NSTG = NS 
CHEM = NVEH 
SEPS = ISESP 
RETURN 
END 

SUBROUTINE LINKT ( T , A , 3 , C ,D , E , J E,G ,TRI N) 
C0MM0N/TUGVEH/TYPE,NSTG,SPAR(3) ,WS(3) ,NPA(3) ,EISP(3) 

X ,R£USE(3) ,WGA,TR 

X,FEAS(2} 

INTEGER SPAR 
EISP(I) = A 
WSTI) = B 
HPA(I) = D 
REUSECt) = 1. - E 
5 SPAR(I) = JF 
WGA = G 

IFCI.EQ.l) TR = TRIN 
RETURN 

END ■ - - - - 

SUBROUTINE SSLQD ( OVL EG , PLEG , BOIL , NLEG) 

SSLQO - PERFORMANCE ROUTINE FOR SINGLE STAGE LIQUID 


GENERAL INPUT 

WS THE STRUCTURE WEIGHT FOR THE STAGES 

WPA THE ALLOWABLE PROPELLENT WEIGHT FOR THE STAGES 

EISP EFFE'CTIVE TSP (SECT ' “ 

G GRAVITY (CONSTANT) 

WGA ALLOWABLE GROSS WEIGHT 
NSTG NUMBER OF STAGES 

^ REUSE’ REUSABLE FLAG 0 = EXPENDABLE , 1 = RETJSAELE' 

^ SPECIFIC INPUT 

OVLEG DELTA V FOR EACH LEG 

^ PLEG PAYLOAD ON EACHTEG" ’ ' " ' 

NLEG NUMBER OF LEGS 


II 


mm 

u 

PRFORM 

37 

PRFORN 

38 

CONEC 

2 

CONEC 

3 

CONEC 

4 

CONEC 

5’ 

/SEPVEH/ 

2 

/SEPVEH/ 

3 

/SEPVEH/ 

4 

/SEPVETT/ 

5 

/SEPVEH/ 

6 

/TUGVEH/ 

2 

/TUGVEH/ 

3 

/TUGVE-H/ 

4 

/TUGVEH/ 

5 

CONEC 

8 

CONEC 

9 

CONEC 

lo- 

CONEC 

ll 


OUTPUT 


FEAS(l) ’PRO'PELL'ENr WEIGHT RATIO 

FEAS(2) GROSS WEIGHT RATIO 


CONEC 
LINKT 
'/TUGVEHi^ 
/TUGVEH/ 
/TUGVEH/ 
/TUGVEH/ 
LTNKT 
LINKT 
LINKT 
LINKT 
UTNKT — 
LINKT 
LINKT 
LINKT 
II'NKT 
SSLQO 
SSLQO 
SSLQD 
S^LQO 
SSLQO 
SSLQO 
SSLQD, „ 

“5si:q0 

SSLQD 

SSLQO 

SSLQO 

SBEQU 

SSLQO 

SSLQO 

SSLQD 

SSEQD ■ ■■ 

SSLQD 

SSLQO 

SSLQD 

SSLQO 

SSLQD 
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2 

2 

3 

4 

5 

4 

5 

6 
7 

■ s — 

9 

ID 

11 

12 • 

2 

3 

4 

... g-„_ 

6 

7 

! 8 

-- g 

10 

11 

12 

13- 

14 

15 

16 
'17 
18 

19 

20 
21 
22 


I 

U1 
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IF LESS THAN OR EQUAL TO 1 CONSTRAINTS NOT EXCEEDED 
IF GREATER THEN 1 CONSTRAINTS EXCEEDED 

OIHENSION DVLEG(iO) . P lFG(IO) 

DIMENSION B0IL<1) 

C0MM0N/TUGVEH/TYPE,NSrG,SPAR(3) ,NS(3) ,WPA(3) ,EISP(3) 

X , REUSE (3> ,WGA,TR 

X,FEAS(2) ■ 

INTEGER SPAR 
COMMON/MISC/G. 

■REAL MR 

DATA G/32.1725/ 

WP = O.G 
N = NLEG 
ONl=G-»EISP(l)»2. 

DO 10 I = 1,NLEG 
EXPl = CVLEG(N) / ONI 
MR = EXP( EXPl) 

WPI = (WS(1)+ WP + PLEG(t^^ ) * (MR ~ l.aT' , ~ 

WP = WP + WPI + BOIL (N> 

WPI = <WS(1) WP ♦ PLEG(N) )»(MR->i.) 

WP = WP + WPI 

10 N = N" - i ~ 

OK - NOW HAl/E WEIGHT FOR LEG 

WG = WP + WS(i> + PLEGCi) 

FEAS(l) = WP / WPA(l) 

FEASC2) = WG / WGA 
RETURN 

END ■ , 

SUBROUTINE SSHOT (OVLEG,PLEG, NLEG) 

SSHOT - PERFORMANCE ROUTINE FOR THE SLINGSHOT TYPE 
OEPLOYHETrr - UP "TO 3 LEGS AMD’ EITHER 2“0R- 
3 STAGES. 


GENERAL INPUT 


•«s 

WPA 

EISP 

G 

WGA ■ 
NSTG 


THE STRUCTURE WEIGHT FOR THE -STAGES - ‘ • 

THE ALLOWABLE PROPELLENT WEIGHT FOR THE STAGES 
EFFECTH/E ISP (SEC) 

GRAVITY (CONSTANT) 

ALLOWASL'E GROSS WEIGHT 
NUMBER OF STAGES 


REUSE REUSABLE FLAG Q = EXPENDABLE , 1 = REUSABLE 

SPECIFIC INPUT — * 

OVLEG DELTA V FOR EACH LEG 
PLEG PAYLOAD ON EACH LEG 
NLEG NUMBER OF LEGS 


OUTPUT 


FEAS(l) PROPELLENT WEIGHT RATIO 

FEAS(2) .. GROSS HE IGHT RATIO. 

IF LESS THAN OR EQUAL TO 1 CONSTRAINTS NOT EXCEEDED 


IMB 

SSLQD 

SSLQD 

SSLQD 

SSLQD 

/TUGVEH/ 

VTUGVEH7 

/TUGVEH/ 

/TUGVEH/ 
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SSLQD 

30 

• SSLQD- ■ • 

31 " 

SSLQD 

32 

SSLQD 

33 

SSLQD 

34 

SSLQD- 

35" 

SSLQD 

36 

SSLQD 

37 

SSLQD 

38 

SSLQD 

39- 

SSLQD 

40 

SSLQD 

41 

SSLQD 

42 

SSLQD 

43 “ 

SSLQD 

44 

SSLQD 

45 

SSLQD 

46 
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SSLQD 
SSLQD 
SSLQD 
-SSLQD 
SSHOT 
SSHOT 
SSHOT 
SSHOT-- 
SSHOT 
SSHOT 
SSHOT 
SSHOT 
SSHOT 
SSHOT 
SSHOT 
SSHOT - 
SSHOT 
SSHOT 
SSHOT 
-SSKOT"- 
SSHOT 
SSHOT 
SSHOT 
SSHOT - 
SSHOT 
SSHOT 
SSHOT 
SSHOT 
SSHOT 
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e 


c 


IF GREATER THEN 1 CONSTRAINTS EXCEEOEO 
OINENSION OVLEG(IO) , PLEG { 1 0 ) , WP ( 3) 

C0'1H0H/TUG\/EH/TrPE,NSTG,SFAR(3) ,WS(3) , WPAT3T , EISP ( 31 
X jREUSE (3) ,WGA,TR 

XtFEAS cai 
INTEGER SPAR 
COHMON/HISC/G 
real MR 

INITILIZE AND COMPUTE STAGE, WT 

WP(NSTG) = 0.0 
DNl =EISP(NSTG) » G 

IF .( NLEG .EGL. . GO TO 20 . . 

IF MORE THAN ONE LEG COMPUTE N NTS 

N = NLEG ... 

DO 10 I = 2, NLEG 

EXl = DVLEG(N) / DNl 
MR = EXP(EXl) 

WPI = (WS(NSTG) + WP(NSTG) + PLEGGN) ) ♦ (MR -1.0) 
WP(NSTG) = WPCNSTG) F WPI 
iO N = N - 1 

COMPUTE RATIO AND TEST IF J)K , 

FEAS(l) = WP(NSTG) / WPA(NSTG) 

FEAS(2) = 0.8 

IF { FEAS(l) .GT. l.C )_ RETURN 

MISSION FEASA8LE - CONTINUE 
PICK UP SINGLE LEG COMPUTATION 

2D "MR = '(WSCNSTG)' F WPA(NSTG) + PLEGdll /■“’ ' ' ~ ’ 

X (WS(NSTG) + WPJNSTG ) + PLEG(l) > 

T1 = ALCG( MR ) 

NOW FORM DELTA \> FOR UPPER STAGE AND 
SEE IF ITS SUFFICIENT 

OITMU = DNl * T1 

IF { DLTVU .LT. OVL EG (11 "G"0~T(T "3D 

ITS SUFFICIENT - SET FLAG AND RETURN 

FEAS(l) = .5 " 

RETURN 

NO IT NEEDS MORE.. . . . . 

30 WP(NSTG) = WPA(NSTG) 

DLT7L = OVLEGd) - OLTVU 
OLT7LU = 0.0 

WG'2 “"= PLTGTl) ' ■■ ”* ■ 
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ooo ooo ooo ooo noo ooo ooo ooo ooo ooo 


IF { NSTG 


TEST THE NUMBER OF STAGES - 
.EQ. 2 ) GO TO 60 


ITS A THREE STAGE VEHICLE - SEE IF THE 
SECOND STAGE IS EXPENDABLE 

WP(2) = 0.0 

IF(lFlX(REUS£(2n .EQ.O) GO T'O 4C" ' ' ' 

EXP2 = DLTVL'‘REUSE(2) /(G*EISP(2)) 

MR = EXP <EXP2) 

WP(2) = WS(2) * ( MR - 1.0 ) 

TEST IF THERE IS ENOUGH PROPELLENT 

IF ( WPC2) .LT. WPA(2) ) 60 TO 

NO - SECOND STAGE CANNOT EVEN RETURN - ABORT 

FEAS(l) = 1.5 
RETURN 


ITS OK > CONTINUE 

40 WG2 = PLEG(l) + WP(3) + WS(3) 

MR = (WS(2) <- NPA(2) + WG2 ) / 

DLTVLU = G* EISP(2) * ALOG(MR» 


(WS<2) + WP(2) + NG2 ) 


TEST IF SECOND STAGE CAN 00 THE MISSION 

IF ( DLTVLU .LT. DLTVL ) GO TO 5C 

FEASCIJ = .7 

RETURN 

NO CONTINUE 
50 WP(2) = WPA(2) 

ONLT TWO STAGE RETURN 

60 OLTVLL = DLTVL - DLTVLU 
T2 = 6 * EISP(l) 

SET UP AND TEST IF THE STAGE IS REUSABLE 

WP(i) = 0.0 

IF(IFIX(R£US£(1) ) .EQ.O) GO TO 70 

NO COMPUTE THE'WP' ■" — 

EXP3 = DLTVLL^REUSE (1) /T2 

MR = EXP (EXP3) 

WP(1) = WS(1) » (MR -i.or . - 

TEST IF FIRST STAGE CAN RETURN 

IF { WF(i) .LT. WPA.(l) ) GO’ TO.. 70 ' - ‘ 

FEAS(l) =1.3 
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RETURN 


ITS OK - CONTINUE 

70 EXP4 = DLTVLL/T2 
MR = EXP (EXP4) 

HG2 = WG2 f WP(2) + WS(2) 

WPI = (HSU) + NP(1) + WG2) ‘^(MR-1.0) 
WPl = WP(1) f WPI 
FE/iS(l) = WPi / WPA(l) 

WG _5 WG2 + WSd) * WPi 
FEAS(2) = WG / WGA 
RETURN 
END 

SyeROUTINE TRNKCtDVLEG.X t.PLEG.) 

GENERAL INPUT 


WS THE STRUCTURE WEIGHT FOR THE STAGES 

WPA THE ALLOWABLE PROPELLENT WEIGHT FOR THE STAGES 

EISP EFFECTIVE ISP (SEC) ■' 

G GRAVITY (CONSTANT) 

WGA ALLOWABLE GROSS WEIGHT 
NSTG NUMBER OF STAGES 

REUSE REUSABLE FLAG 0 = EXPENDABLE , I = "REOSAaL-E" 


SPECIFIC INPUT 
OVLEG(i) 
DVLEG (2) 
NLEG 


OUTPUT 


FEAsrfy 

FEAS(2> 


DELTA V FOR LOW ALTITUDE BURN 
DELTA V FOR HIGH ALTITLTDr “BURN 
SET EQUAL TO 2 


PROPELLENT WEIGHT RATIO 
GROSS WEIGHT RATIO 


IF LESS THAN OR EQUAL TO 1 CONSTRAINTS NOT EXCEEDED 
I'F GREATER’THEN i CONSTRArNT'S ‘EXTEEDETT 

DIMENSION PLEG(i) , WP (3) 

COMMON/TUG VEH/TYPE,NSTG,SPAR (3) , WS ( 3 ) , WPA ( 3 ) , EISP (3) 

X ♦REUSE C3T, WGA, TR 

X,FEAS(2) 

INTEGER SPAR 
C0Mi10N/MI5C/G 

C0MM0N7DELTAV/DVLEG{ 2) ’ ” ' 


INITILIZE AND COMPUTE STAGE WT 


C 

c 


real 

FEAS(l) = 
FEAS(?) = 
IF ( 

WPL2 
0VK2 
FXPl 
MRK2 


MRK2, MRKMX 
3.5 
0.5 

NSTG .EQ. 2 ) 

= FLEG(l) 

= OVLEG(?) 

= OVK2 / (G 
= EXP (EXPl) 


MRCK,MRA3,MR1 


GO TO 10 


E1SP(3) ) 
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SECOND KICK MUST DO ALL OF SECOND BURN 
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NOW GET FUEL REQUIRED FOR SECOND KICK 
WP(.3)_ = (H5(3J *■ WPL2) * ("IRK2 -1.0) 

FEaS(l) = WP(3) / WPA(3) 

IF THE SECOND KICK CANNOT DO THE SECOND 3URN| EXIT. 

IF ( FEAS(i) .GT. 1.0) RETURN 

SECOND STAGE ASSUMED FULL - EXCESS FUEL IS 
USED UP 0Y YAW STEERING 

WGK2 = W3(3) + WPL2 + WPAC3) 

NOW SET UP. PARAMETERS FOR FIRST KICK 

DVC = DVLEG(1)»,75 

□VAB - DVLEG(l) -DYC 
WPL = WGK2 

GO TO 2C ■■ ■ ■ ~ “ 

MUST SET UP PARAMETERS IF THERE WAS NO SECOND KICK 


"1G‘ DYC = OVLEG C2) ~ " ' ' ’ ' 

DVA3 = OVLEG(l) 

WPu = PLEG(l) 

NOW CONTINUE TH'E" PROCESS ' '' ' 

20 HRKMX = i.O + ( WPA(2) / (WPL + WS(2).) ) 

EX°2 = DVC / (G* EISP(2>) 

MRGK = EXP (EXP2) ' 

EXP3 = DVA8/ (G* EISP(D) 

MRAB = EXP (EXP3) 

CHECK IF KICK HAS MORE FUEL THEN REQUIRED" 
REXP =REUSE{1) <-1.0 

IF ( HRKMX .GT, MRCK ) iMRKMX = MRCK 
ALFINV = EI'SP(2) / EISP(l) 

MRi = MRA3 * MRCK ** ALFINY / MRKMX*»ALFI NV 
WP(2)={WS(2) + WPL ) ♦ (MRKMX -l.Q ) 

HP(1) = (<MRl-i.) *(WPA(2) +WS<2> +WPD) + ( ( M R1 **REXP-1 . ) 

* * WS(l) ) “ • “■ 

HG = WFL 4- WPA(2) fWS(2) + WP(l) +■ WS(1) 

FEAS( 1) = hP(l) / WPA (1) 

FEASC2) = W6 / WGA 

RETURN ~ ■■ ”• -■ ■ 

END 

SUBROUTINE LOSEP ( A ,B ,C , 0 ,H , I ,F , G> 

COM MON/S EPYEH/SEPS, MS, E,P, SISP, SEPK,SR,TSEP 
» ,CHEM . „ 

*■ ,DT 

INTEGER SEPS 
REAL MS 

COMMON /OUTF/ TO, TU, HEO nCOSiMOT 

* ,TLEFT(5) ,MPT(5) ,TSAYE(5) ,RTCAP(5) ,MPTSV(5) 
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TRNKC 48 

"TRNKC” W 

TRNKC 50 

TRNKC 51 

TRNKC 52 

TR NTKC ■ 53*” 

TRNKC 54 

TRNKC 55 

TRNKC 56 

TRNKC 57“ 

TRNKC 58 

TRNKC 59 

TRNKC 60 

TRNKC ”Bt 

TRNKC 62 

TRNKC 63 

TRNKC 64 

TRNKCr ■“ • "65- 

TRNKC 66 

TRNKC 67 

TRNKC 68 

— TRNKC &9 

TRNKC 70 

TRNKC 71 

TRNKC 72 

-TRNKC- - - 73- 

TRNKC 74 

TRNKC 75 

TRNKC 76 

— ~TRNKC' ■ ■ 77 ~ 

TRNKC 78 

TRNKC 79 

TRNKC 80 

- TRNKC- — 81" 
TRNKC 82 

TRNKC 83 

TRNKC 84 

' . TRNKC - - 85 - 

TRNKC 86 

TRNKC 87 

. TRNKC 88 

TRNKC 39 

TRNKC 90 

LOSEP 2 

/SEPVEH/ 2 
■ ' /-SEPyEH/ -3 
/SEPVEH/ 4 
/SEPVEH/ 5 
/SEPVEH/ 6 
/OUTP7"~ — 2- 
/OUTP/ 3 
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I 



c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


^DT ,MPT,MPTSV,ICOS 

MS = A 
£ = B 

P = C 

sisp = n 

SR = H 

" ■ - I 


1 

F 


SEPK = 

TSEP = 

MDT = G 
RETURN 
END 

SUBROUTINE SEFS V ( H .PER , VS , DT , P A Y ) 

DIMENSION OT (10) .PAY (10) 

COMMON/SERVIS/NSERV,DTHETA( 10) ,MPLS(10) ,PSERV,VSERV 

REAL MPLS 

NSERV = N 

00 5 I = 1, NSERV 

O THETA (I) = OT(I) 

5 HPLS(I) = PAY(I) 

RETURN 

ENO 

SUBROUTINE TW03R( OV, OV 1) 

TRANSFER ON TWO OV S RATHER THAN ONE 

C0MM0N/DELTAV/DVLEG(2) 

DVLEG(l) = OVi'^1.01 
DVLEG(2) = (OV - OVD'^l.Gl 
RETURN 
END 

SUBROUTINE SEPX ( HPL A , MPLB , ERFLG, NE XI T ) 

S£PX THE SEP EXECTIVE ROUTINE IT PERFORMS THE 
... -LOGLC OF. UTILIZING OF THE SEPS .VEHICLE 

SPECFIC INPUT 

NPLA PAYLOAD TO 3E DEPLOYED 
MPL3 PAYLOAD TO BE RETRIEVED 
ERFCG ■ 0 = DO NOT ERASE PREVrOUS MANEUVER 
1 = ERASE THE PREVIOUS MANEUVER 
NEXIT SET TO 0 ON DATA CARD OF DRIVER 
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SEPSV 
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SEPSV ■ 

■ 8 


SEPSV 
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N O 

SEPSV 
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TW08R 
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TW08R~‘ 

■ 3“ ■ 


TW08R 
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TWOBR 
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TWOBR 
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twobr: — 
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TWOBR 
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TWOBR 
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SEPX 
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SEPX 
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SEPX 
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SEPX 
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SEPX ■ ' 

6 • - 


SEPX 
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SEPX 
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SEPX 
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SEPX 

10 

„ . 

SEPX 

11 


SEPX 

12 


SEPX 

13 



GGHMON' rNPirr'"(SEPVER)' 
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“SEPX 

-■ ir- 

MS 





SEPX 

is 

MPT 

AMOUNT OF FUEL REMAINING 




SEPX 

16 

TLEFT 

AMOUNT OF TIME REMAINING 




SEPX 

17 

tr 

u. 
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- “SEPX ■ 

IB- 

p 





SEPX 

19 

SISP 

SPECIFIC IMPULSE SEPS 




SEPX 

20 

HOT 





SEPX 

21 

RTCAP 





SEPX ‘ 

22 - 

TSEP 





SEPX 
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RSEP 





SEPX 
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SG 

GRAVITY CONSTANT 
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SEPX • 
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OUTPUT 
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MISSION ANO RETURN THE EXPENDED SEPS,IF 
ANY. NTUGS WILL BE BETWEEN 1 ANO 3. 

TLEFT TIME ANO FUEL REMAINING ON SEPS VEHEHICLE 
MPT IN ORBIT 

C0MM0N/TUGVEH/TYPE,NSTG,SPAR(3) ,WS(3) ,WPA(3) ,EISP(3) 

X .REUSE (3) .WGA.TR 

X,FEAS(2) 

INTEGER SPAR 

COMMON/SEPVEH/SEFS,MS,E,P,SISP,SEPK,SR.TSEP 
* .GHEM 
» ,DT 

INTEGER SEPS 
REAL MS 

COMMON/SERVIS/NSERV.OTHETAdO) .MPLS(iO) .PSERV.VSERV 
REAL MPLS 

COMMON /OUTP/ TD.TU.HCO.ICOS.MOT 

.TLEFT(5) .MPT(3) .TSAVECS) ,RTCAP(5) ,MPTSV(5) " 

REAL MOT .MPT.MPTSV.ICOS 
C0MM0N/C2/TS 
REAL MPLA.MPL3 
INTEGER ERFLG 
HCO=160. 

TU=3.0 
TS=Q .0 

TO-O.C ■ 

IC0S=28.E 

IF (NEXIT .GE. 1 ) GO TO 10 

INITIALIZATION CALCUL ATATIONS 
C = SISP + 9.80621 

'OT=(£*P»A".409246) /(C*C) ' ' ’ 

MPT(SEPS)=MOT 

TSEP = MPT(SEPS) /(86400.D^OT) 

TLEFT(SEFS) = TSEP 

TSA^E(SEPS> ='TSEP . - . 

MPTS\/(SEPS) = MPT(SEPS) 

RTCAP(SEPS)=0 

INITIALIZATION COMPLETE 

CONTINUE 

IF ( ERFLG .GE. 1 } GO TO 20 

NO - SAVE PRESENT CONDITIONS 
MPTSV(SEPS) = HPTCSEPS) 

TSAVE(SEPS) = TLEFT(SEPS) ” 

GO TO 30 

ERASE - 

TLEFT(SEPS) = TSAVE(SEPS> 
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SEPX 

42 

SEPX 
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SEPX 

48 

SEPX' “■ 

- Ifg— 

SEPX 
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SEPX 
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SEPX 
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■“SEPX 
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SEPX 

54. 

SEPX 

55 

SEPX 

56 

• SEPX^ - - - - 

57- • 

SEPX 

58 

SEPX 

59 

SEPX 

60 

SEPK" ‘ 

... 

SEPX 

62 

SEPX 

63 

SEPX 

64 

SEPX- -■ • 

- -6 5- 

SEPX 

66 

SEPX 

67 

SEPX 

68 

SEPX 

- -6S-- 

SEPX 

70 

SEPX 

71 

SEPX 

72 

SEPX- " 

■ -7S-- 

SEPX 

74 


TLEFT (SEPS) 
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HPTSV (SEPS) 


30 


mm\ 


NOW TRY TO PERFORM '"Tri'E REMAINING MISSION'" 
WITH THE PRESENT SEPS 


40 CALL StPIH (MPUA,HPL8»0 ,NEXIT ) 


SEE IF IT CAN 3E DONE - 1, 2,5,6 OK - -3,4,7 NO 


IF(MPT(SEPS) .GT.RTCAP(SePS) ) 
IF(NEX1T .EQ.3) RETURN 
IFCNEXIT .EQ.4) RETURN 
IF(NEXIT.EQ. 7) RETURN 
IF(NEXIT,EQ.8) 'RETURN 

ifcnexit ;eq.9T 'r'eturn 

IFtNEXIT.EQ.iO) RETURN 
NEXIT=NEXIT 2 
IF,(N£XIT.EQ.8) NEXI.T = 9 
RETURN 
END 

SUBROUTINE FAZS 


RETURN 


PERFORMS 

INPUTS: 


outputs: 


SEP THRUSTING. 


SEPS PHASING, assuming CONSTANT 
NSER\/=NUMBER OF SERVICE LEGS. 

OTHETA= ANGULAR TRAVEL (DEG) OF EACH SERVICE LEG 
■MPLS= PAYLOAO (L8SJ ON EACH SERVICE LEG. 
PSERV,VSERV= period ' (SEC)" a NC rVECOCITY' (MPS) OF 
MPT= FEUL REMAINIb AFTER PHASING (LBS) . 

TL£FT= TIME REMAINING ON SEPS 'AFTER PHASING (DAYS) 


i'CO 


REAL MKG 

COMMON /OUTP/ TO, TU»HCO,ICOS,MOT 
» ,TLEFr(5> ,MPT(5) ,TSAVE(5) ,RTCAP(5) ,MPTSV(5) 

REAL MOT, HPT, HPTSV, ICOS 

COMTlONZS'ERVISyNSERV; OTHErA'dTJT , HPLS (iO) , PSERY5VSE:R\r'' 
REAL MPLS 

COMMON/SEPVEH/SEPS,MS,E,P,SISP,SEFK,SR,TS£P - 
* jCrIEM 

,O T ' 

INTEGER SEPS 
REAL MS 
C0MM0N/C2/TS 

CO>!'Mo'F!/TS'AyTPCS"(30),TCrP,TD'O«>J" ' 

DATA PSERV,VSERV/36165. ,3074.66/ 

IF(CriEM .NE.C) RETURN 
F=(OT»9.80621*SISP)/2. 204623 
C0NST'li(3. 0*F*PSERV) /(AiC'^’VSERV) ' 

TS = TLEFT(SEPS) 

DO 100 N=i,NSERV 

MKG = (MS+MPT(S£PS)fMPLS(N)) /2. 204623 
REV=SQRT ( (MKG»ABS(OTHET'AlNyr) 7T36'(r7‘» CONST D > 

TL EFT (SEPS) =TLEFT( SEPS) -( (RE V»PSERV)/8640Q.) 

TPLS(N) = TS - TLEFT(SEPS) 

„MPT(_SEPS) - MPT (SEPS) -OT+REV^PSERV 

'CDN'Tl'NU'E 

TS = TS - TLEFT(SEPS) 
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SEPX 80 
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SEPX 83 

SEPX 84 

, SEPX 85 

' ' SEPX B5‘ 

SEPX 87 

SEPX 88 

SEPX 89 

■ “ "SEPK - ■ 90 

SEPX ■ 91 

SEPX 92 

SEPX 93 

■ SE'P'X 94 

SEPX • 95 

FAZS • 2 

FAZS 3 

FAZS'”"" 4 

FAZS 5 

. FAZS 6 

FAZS 7 

SERVICE 0R8TTA2S 3 

FAZS 9 

FAZS 10 

FAZS 11 

T7TZS T2 

/OUTP/ 2 

■ /OUTP/ 3 

/OUTP/ 4 

/SERVI'S/'"” 2 

/SERVIS/ 3 

/SEPVEH/ 2 

/SEPVEH/ 3 

■ "/SEPVEH/ 4 

/SEPVEH/ 5 

/SEPVEH/ 6 

FAZS ■ 16' 

FAZS- 17 

FAZS 18 

FAZS 19 

FAZS' 20 

"PATS 21 

FAZS 22 

FAZS 23 

FAZS 24 

FAZS 25 

FAZS 26 

FAZS 27 

FAZS 28 

' ~ "FAZS 29 

FAZS 30 
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SUBROUTINE TPHAS(A,N) 

COMMON/TSA/TPLS(33) ,TUP,TD0HN 
DIMENSION A(l) 

COMMON /OUTP/ Tn,TU»HC0,IC0S,M0T 
* ,TLEFT(5) ,flPT(5) ♦TSA\/E(5) ♦RTCAPtS) ,MPTSV(5) 

REAL M0T,MPT,MPTSU,IC0S 
Atl) = TU/36C. 

A(N) = TD/360. 

IF(N.EQ.E) RETURN 

NX = N-2 . 

00 5 1 = 1 , NX 

A(I+i) = TP^S(I)/36a. 

RETURN 

END 

SUBROUTINE SEPIM (MPLA ,MPLB,KSEP ,NEXIT) 

SEPIM THIS SUBROUTINE COMPUTES THE PERFORMANCE 

OF' THE "SEPS' ON A DEPLOY 'MISSION. 

SPECIFIC INPUT 

MPLA PAYLOAO TO 8E DEPLOYED 
MPLS PAYLOAD TO 3E RETRIEVED 
KSEP ERASE FLAG 

0 = DONT ERASE PRIEVI0U3 MANEUVER 

1 = ERASE PPIEVIOUS MANEUVER 
NEXIT SET TO 0 PRIOR TO ENTRY 


HE 


TPHAS 

2 

• TPHAS . 

3 

TPHAS 

4 

/OUTP/ 

2 

/OUTP/ 

3 

/OUTP/ 


TPHAS 

6 

TPHAS 

7 

TPHAS 

8 

— TPTTAS“ 


TPHAS 

10 

TPHAS 

11 

TPHAS 

12 

TPHAS • 

13 

SEPIM 

2 

SEPIM 

3 

SEPIM 

4 

““'SEPIM - 

5“- 

SEPIM 

6 

SEPIM 

7 

SEPIM 

8 

SEPIM 

■;~“9 

SEPIM. 

10 

SEPIM 

11 

SEPIM 

12 


OUTPUT 


NEXir TYPE OF EXIT FROM SEPS IF MISSION POSSIBLI 
NTUGS "NUMBER OF TUG FLIGHTS REQUIRETT TO " " - 

DO THE MISSION AND RETURN EXPENDED SEPS, 
If ANY. NTUGS WILL BE BETWEEN i AND 3 
TLFT TIME AND FUEL REMAINING ON SEPS IN ORBIT 
MPT ‘ ■ - - - 


COM MON/S EPVEH /SEPS,. NS, E,P,SISP,SEPK, SR, TSEP 


,CHEH 
,DT "• 


■ SFFIH- 
SEPIM 
SEPIM 
SEPIM 

“SEPIM-- ■ 
SEPIM 
SEPIM 
SEPIM 

■ SEPIM 

SEPIM 

/SEPVEH/ 

/SEPVEH/ 


■ "IT 

14 

15 

16 

17 

18 

19 

20 
“"“2r" 

22 
2 
3 


1 

0 

03 

1 


SEPS 


INTEGER 
real NS 

COMMON /OUTP/ Tn,TU,HCO,ICOS,MOT 
*' ,TLEFT{5)',MPT(5)',TSAV£(5) ,RTCAPT5)',MPTSVCn " 

REAL MOT,MPT,MPTSV,ICOS 

COMMON/SERVIS/NSERV,OTHETA< 10) ,MPLS(10) ,PSERV,VS£RV 
REAL MPLS 

CO‘MNON/T‘A3CE/TUGD'Vf2'0) ' ' ' ' 

REAL MPLA,MPLB,MRTUG 1 

TU=O.C 

TD=O.Q 1 

HCO=160. 

IC0S=28.5 

FIRST TEST IF THERE IS A SEPS AVAILAB_LE 
ir(TLEFT<SEPS) .LT.TSEP-.GOl) GO TO 20 


/■SEPVTft/ 4 " 


/SEPVEH/ 

/SEPVEH/ 

/OUTP/ 

/ouTpr--- 

/OUTP/ 
/SERVIS/ 
/SERVIS/ 
--SERIM ' 
SEPIM 
SEPIM 
SEPIM 
SEPIM 
SEPIM 
SEPIM 
SEPIM 
■ SEPIM - 
.SEPIM 


5 
5 
2 

-- 3 - 
4 
2 
3 

2Er-- 

27 

28 

29 

30 

31 

32 

33 

“-34- 

35 



OOO OOO OOO OOO OOOUJ 00 VI ooo 




Height constrained tug 

• — NO - ITS 'A ^^E^^ ■SEPS ' 

TLEFT(SEPS) =TSEP 
WPLA = MPLA + HS *■ MPT(SEPS) 

WPL6 = Q.O 

FIND PROPELLANT REQUIRED TO RETRIEVE SEPS 

RTCAP(SEPS) = 0 

IF CSEPK.EQ.O) GO TO 9 

CALL TUGCf'CG »HS,MRTUG.0VTUG) 

IF{QVTUG.GE.TUGDV (13) ) GO TO 9 

IF(DVTUG.LT.TUGUV (1) ) GO TO 10 

X=MPT(SEPS) 

MPT(SEPS) = 0. 

call INTORBC DVTUG,HC0,IC0S) 

CALL SEPDV(HCO,ICOS, OVSEP, NRSEP) 
RTCAP(SEPS) = MPTCSEPS) 

CALL PLUPO(G . ,MRSEP,T0) 

1F(HPT(SEPS) .GT.O.) go TO 8 

MPT(SEPS) = -NPT(S£PS) + RTCAP(SEPS) + 3. 

GO TO 5 

CONTINUE 

MPT(SEPS) = X 

TLEFT(SEPS) = TSEP 

CONTINUE 



CALL TUGCP TO DETERMINE TUG CAPABILITY 

CALL TUGCP rWPLA,WPL3,MRTUGjDVTUG0 ... - 

IF (DVTUG ,LT. TUGOVdS) ) GO TO 10 

TUG DELIVERS SEPS AND H PLA TO SYNC EQt 

TLEFT(SEPS) = TLEFT(SEPS) - .005 
TU = O.C 
TO = O.C 
HC0=19323, 

IG0S=0.C 

IF (NSERV.GT.Q) CALL FAZS 

NEXIT =2 . 

RETURN I 

NEXT CHECK IF ITS CAPABLE 

10 NEXif =’3 

IF ( DVTUG .LT. TUGOV(l) ) RETURN 

ITS OK - CONTINUE DETERMINE CHANEOVER ORBIT. 
GALL INT0R8 ( DVTUG, HCO,iCOS) 

DETERMINE. THE SEPS D.ELTA. V 

CALL SEP9V (HCOjICOS, OVSEP, MRSEP) 




SEPIM 

33 

— ■ SEPIK - 

-33" 

SEPIM 

40 

SEPIM 

41 

SEPIM 

42 

— SEPIM 

Tfy 

SEPIM 

44 

SEPIM 

45 

SEPIM 

46 

SEPIM"' ■ 

47' 

SEPIM 

48 

SEPIM 

49 

SEPIM 

50 

■ SEPIM 

51 

SEPIM 

52 

SEPIM 

53 

SEPIM 

54 

SEPIM' 

55 ■ 

SEPIM 

56 

SEPIM 

57 

SEPIM 

58 

■ ■ SEPIH‘“ “ 

Fg-” 

SEPIM 

60 

SEPIM 

61 

SEPIM 

62 

■ "SEPIM- 

63— 

SEPIM 

64 

SEPIM 

65 

SEPIM 

66 

• - SEPIM 

- 67 “ 

SEPIM 

68 

SEPIM 

69 

SEPIM 

70 

SEPIM • 

71- 

SEPIM 

72 

SEPIM 

73 

SEPIM 

74 

SEPI>r 

7?' 

SEPIM 

76 

SEPIM 

77 

SEPIM 

78 

SEP ITT 

—713 

SEPIM 

80 

SEPIM 

81 

SEPIM 

82 

■■ SEPIM" 

■83‘" 

SEPIM 

84 

SEPIM 

85 

SEPIM 

86 

" ■ SEPIM 

8 T" 

SEPIM 

88 

SEPIM 

89 

SEPIM 

90 

SFPXH"" ■ 

yi 

SEPIM 

92 



PERFORM UP LEG AND PHASING 


CALL PLUPO (MPLA ,MRSEP,TU ) 
IF (NSERV.GT.O) CALL FAZS 


SET NEXIT AND TEST IF THERE IS FUEL REMAINING 


NEXIT = 1 

IF(MPT<SEPS) .Gt.C.) RETURN 


NEXIT = h 
RETURN 


SEPS CANNOT DELIVER THE PAYLOAD - SET FLAG AND ABO'RT 


THIS ENTRY POINT FOR SEPS AVAILABLE 
IN SYNC EQ, ORBIT 


A = KSEP " ■ ■ 

SMPT = MPT(SEPS) 

WPl3 = MFL3+A*SEPK*MS 
WPLA'= MPLA 

DETERMINE THE tuG CAPABILITY 
CAlL TUGCP (WPLA,WPL3,MRTUG,0VTUG > 

IF ( OVTUG .LT, TUGOVdT) ) GO" TO 30 '■ “ ’ 

NO - TUG ALONE CAN DELIVER AND RETRIEVE 
PAYLOADS TO SYNC EQ ORBIT 

TU = O.C 
TO = Q.G 
HG0=19323. 

IC0S=0,0 

IF (NSERV.GTiC) CALL FAZS 
NEXIT = 9 

IF(MPT(S£PS) ,LT.C.) RETURN 

NEXIT =6 ■■ ■■ 

RETURN 

TUG Alone can not do it- check if all ok 

NEXIT =7 

iF ( OVTUG .LT. TUGOV(l) ) RETURN 

ITS OK - CONTINUE M 

DETERMINE CHANGEOVER ORBIT 

GALL INTORO ( OVTUG, HCO , ICOS ) 

call SEPOV (HCO, ICOS, nvSEP,HRSEP) , ' “ 

CALl. PLUPO (MPL3,MRSEP,T0 ) 




SEPIM 

95 

SEPIM" 

■ - 

SEPIM 

97 

SEPIM 

98 

SEPIM 

99 

' SEPIM 

,‘Vioo ■■ ■ 

SEPIM 

101 

SEPIM 

102 

• SEPIM 

103 

SEPIM 

. - • 

SEPIM 

1Q5 

SEPIM 

106 

SEPIM 

. 107 

SEPIM 

103 ■ " ■■■■ ■ 

SEPIM 

• 109 

SEPIM 

110 

• SEPIM 

111 

' SEPIM 

112 

SEPIM 

113 

SEPIM 

11^ 

SEPIM 

115 


SEPIM" 


SEPIM 

117 

SEPIM 

118 

SEPIM 

119 

-S'EPIM 

. . - 

SEPIM 

121 ^ 

SEPIM 

122 o 

SEPIM 

123 > 

SEPIM ■ 

- i24“ 

SEPIM 

125 

‘SEPIM 

126 

SEPIM 

127 


SET UP AND CHECK CONSTRAINTS 


NEXIT = 8- 


SEPIM — 

--~1^8 

SEPIM 

129 

SEPIM 

130 

SEPIM 

131 

SEPIM 

132 

SEPIM 

133 

:SEPIM 

134 

SEPIM 

135 

-SEPIM-*- 

^133' 

SEPIM 

137 

SEPIM 

138 

SEPIM 

139 

• SEPIM"' 

140 

SEPIM 

141 

SEPIM 

142 

SEPIM 

143 

' - SEPITT ■ 



■ SEPIM 

145 

, SEPIM 

146 

/ ■' SEPIM 

147 

SEPIM 

‘ 148 

SEPIM 

. 149 











?•> ^8o^9o^aG 


mm 

il! 

c 




SEPIM 

152 

c 


stps h:e:tpi£\/eo along with 

PAYLOAD 

SEPIM"' 

"153 

c 




SEPIM 

154 



TU = C .0 


SEPIM 

155 



NEXIT = 10 


SEPIM 

156 



RETURN 


SEPIM' “ ■■ 

• 157 " 

c 




SEPIM 

158 

c 


CONTINUE PROCESS 


SEPIM 

159 

c 




SEPIM 

160 


40 

CALL PlDPO (MP'_A,MRSEP,TU) 


■ SEPIM- 

T6T 



IF (nserv/.gt.o) gall fazs 


SEPIM 

162 



NEXIT = 9 


SEPIM 

163 



IF{NPT(S£PS> .LT.O .) GO TO 60 


SEPIM 

164 

c 



_ - 

■‘SEPIfl 

165 

c 


MISSION COMPLETE 


SEPIM 

166 

c 




SEPIM 

167 



NEXIT = 5 


SEPIM 

168 



RETURN 


SEPIM 

169’ 

c 




SEPIM 

170 

c 


FIND DOWN FLIGHT TIME NEXIT = 8 


SEPIM 

171 

c 




SEPIM 

172 

5C 


TU = 0 


SEPIM 

173 



MPT(SEPS) = SMPT 


SEPIM 

174 



call PLUPD{0.tMRSEP,TO) 


SEPIM 

175 



RETURN 


SEPIM 

176 

c 




'SEPIM 

177"' 

c 


FIND DOWN FLIGHT TIME NEXIT = 9 


SEPIM 

178 -ii 

c 




SEPIM 

179 

61} 


TU = C 


SEPIM 

180 ' 



MP'TfSEPS) = SMPT 


SEPIM ' 

181 • 



CALL PLUP0(MPL3,MRS£P, TO) 


SEPIM 

182 



RETURN 


SEPIM 

183 



END 


SEPIM 

184 



SUBROUTINE TUGCP ( WPl A , WPL8 ,HRTUG , 0 V TUG ) 


TUGCP" 

2 - - ... 

c 




TUGCP 

3 

c 


TUGCP - CALLS THE APPROPRIATE TUG EQUATIONS. 

TUGCP 

4 

c 


( AT PRESENT - ONLY OPTION 

IS SINGLE 

TUGCP 

5 

c 


STAGE CRYOGENIC TUG. )" 


TUGCP 

6 “ - ■ 

c 




TUGCP 

7 



CALL CRYOl (WPLA,WPLB,MRTUG,DVTUG) 


TUGCP 

3 



RETURN.. . . , . 


TUGCP 

9 



END 


TaG"CP“ ' 

10 - - - 



SUBROUTINE G ETFR ( FR, LL , IK) 


. GETFR 

2 



DIMENSION FR(i-) • 


GETFR 

3 



,.U,= LL + 9 


GETFR 

4 



IK = 0 


■ GETFR 




READ(U FR 


GETFR 

6 



IF(EOF{D) 20,10 


GETFR 

7 


io 

RETURN 


GETFR 

8 


20 

IK = 1 


GETFR - • 




RETURN 


GETFR 

10 



END 


GETFR 

11 



SUBROUTINE P UTFR ( FR, LL , IK) 


PUTFR 

2 



DIMENSION FR{4) 


PUTFR- 

- 3 ■ - 



L = LL + 9 


PUTFR 

4 






-- 



oooooo . ooo , ooooo 




RET.URN 
ENOFIlE L 
REWIND L 
RETURN 
END 

SUBROUTINE 


GO TO 5 


CRVOl <WPLA,WPLB,MT?.TUG»OVTUG) • 

CRYOl- FINOS THE DELTA V CAPA3ILITY OF A 

single STAGE TUG WITH PAYLOADS NPLA AND WPL8. 


COMMON/TUGVEH/TYP£»NSTG ,SPAR(3) ,WS(3 ) , WPA (3) , EISP (3) 
X ,REUSE (3) ,WGA,TR 

"X»F£AS(2) ■ ■■ 

INTEGER SPAR 
COMHON/MISC/G 
REAL MRTUG 

WPiNPAd) 

IF ((HS(1) «-WPA(l)+WPLA) .GT.WGA) WP= WG A- ( NS { i) +WPL A ) 
MRTUG=< WP+WS(1)+WPLA)/(WS(1) +WPLA) 

IF (REUSETl) .LT.f, .5) GO TO lOD 
8Z=WS (1) ♦•WS(l) +WPLA+WPL3 ' 

CZ=-NP»(HPL8+NS(1) ) 

HP! = (-3Z4-SQRT(BZ»3Z-4.*CZ) ) . 

MRTUG = (WF1+WPL3^WS{UJ / (WPL8+NS (1>) 

100 ALMR=AL0G( MRTUG) " ' 

OVTUG = G^£ISP(i)'^ALMR/(TR+l.) 

RETURN 

END 

SUBROUTINE PLUPD (HPlU, MRSEP,T ') " ' ' 

PLU® - CARRIES SEPS PAYLOAD UP 

COMM'ON/S£P\/EH/SePS,MS,E,P,SrSP,SEPK,SR,TSEP ' 

,CH£M 

♦ ,DT 

INTEGER SEPS 

R'EAL'ffS ■ ' ■ 

COMMON /OUTP/ TOfTUtHCO, ICOS.HDT 

* ,TL£FT(5) ,MPT(5) ,TSAVE(5) ,RTCAP(5) «NPTSV (5) 

REAL MOT,MPT,MPTS\/,ICOS 

■" REAL’ MP'LU.'MRSEP.MPTl - . . . 

MPTl = { (MPT(SEPS) +MS+MPLU)-/MRSEP) '(MS+MPLU) 
r = (MPT(SEPS) - MPTl) /(86i*00.'^DT) 

TLEFT(SEPS) = TLEFT(SEPS) - T 

' WPrCS EP^r'^'" HPT 1“ " : 

' RETURN 
ENG 

SU3RQUTINE SEPDV (H CO, ICOS , DVSEP ,MRSEP ) 


SEPOV - 


INPUT 


CALCULATES THE REQUIRED SEP 
NEEDED FOR SYNC EQ. AND THE 
MASS RATIO. 


DELTA \/ELOCITY 
CORRESPONDING 



1 

PUTFR 

7 

PUTFR- 

,_g. 

'PUTFR 

9 

PUTFR 

' 10 

•PUTFR 

11 

"CRYOl' ■ 

r~~ 

CRYOl 

. 3 

CRYOl 

4 

CRYOl 

5 

CRYOr 


CRYOl • 

. 7 

/TUGVEH/ 

2 

/TU6VEH/ 

3 • 

./TUGVEH7' 

tf ■ 

/TUGVEH/ 

5 

CRYOl 

9 

CRYOl 

10 

CRYOi' 

—IT " 

CRYOl . 

12 

CRYOl 

13 

CRYOl 

14 

CRYOl" " 

' 15“" 

CRYOl 

16 

CRYOl 

17 

CRYOl 

18 

CRYOl " 

- J^g-- 

CRYOl 

20 

CRYOl 

21 

CRYOl 

22 

PLUPD 

2 - 

PLUPD 

3 

PLUPD 

4 

PLUPD 

5 

/CEPVEH/^ 

gr ~ 

/SEPVEH/ 

3 

/SEPVEH/ 

4 

/SEPVEH/ 

5 

*•/ SERVE H7“ ■ 

■ -&■“ 

/OUTP/ 

2 . 

/OUTP/ 

3 

/OUTP/ 

4 

PLUPD 

-8 " 

PLUPD 

9 

PLUPD 

10' 

PLUPD 

111 


I 

-vj 

to 


PLUPD 
■ PLUPD 
SEPOV 
"SEPOV 
SEROV 
SEPOV 
SEPDV 
-SEPDV 
SEPOV 


ju_ . 


13 

14 
>2 

7 - 3 - 

, 4 
, 5 
6 

-7- 

8 



ooo ooooooooonooo oooopcsn 


Ms 


OUTPUT 

nVSEP THE SEP DELTA \l 
MRSEP THE MASS RATIO 

■^COMMON/SEPVEH/S£PS,MS,E,P,SISP,SEPK,SR,TSEP ‘ 

^ 1 CHE M 
» «QT 

INTEGER SEPS 

real ms 

COMMON/’MISC/G 

real icos,mu 
real MRSEP 

OAT A hS,MU,RE,OTR/i9'32 3.,i.L0765388E16,3'443.9 3G8,'57.29 5779513/ 
DATA FTPNM/6076. 1155/, PlOE/i , 570796325794/ 

RCO = (hCO+RE) '‘FTPNM 
RS .= (HS +RE)»FTPMM 

tfCCr = "SQ'RnMU/RC’OT' 

\/S = SQRT(MU/RS) 

CICO = C0S{PI02»IC0S/0TR) 

OtfSEP = SORT ( t/C0-*»2+ VS»»2-{\/S+\/S) *tfCO*CICO) 

MRSEP = EXP<OVSEP/ (G^'SISP) ) 

RETURN 

END 

SUBROUTINE INTORB ( DV TUG ,HC 0, 1 COS ) 

INT0R3 - AN INTERPOLATION SCHEME TO DETERMINE 
THE OPTIMUM CHANGEOVER ORBIT ALTITUDE 
AND INCLINATION. 


ipe« 

li 

SEPOV 

11 

' SEPDV ““ 

— -j^-2 - 

SEPDV 

13 

SEPOV 

14 

SEPDV 

15 

/SEPVEHA 

? . 

/SEPVEH/ 

3 

/SEPVEH/ 

■ 4 

/SEPVEH/ 

5 

■ /SEPVEH7 

6 

SEPOV 

17 

SEPDV 

18 

SEPOV 

19 

SEPD¥‘ 

20 

SEPDV 

21 

SEPOV 

22 

SEPOV 

23 

SEPD\r 

■24”' 

SEPOV 

25 

SEPDV 

26 

SEPOV 

27 


INPUT 


nVTUG - TUG DELTA V 


OUTPUT 


HCO ALTITUDE OF 
ICOS INCLINATION 


CHANGEOVER ORBIT 
OF CHANGEOVER ORBIT 


COMMON/TABLE/TUGDV{20) 

REAL ICOS, INC(23),ALT(20) 

DATA TUGDV/ 1 G295 . 74 , 10 600 . 0 , 109QO. 0 , 1 1200 . 0 , 1 150 0 . C , 

i 1 d 0 0 . G , 1 2 1 0 0 . C , 1 0 O'; 0 , 1 2 7 0 0 . 0 , 1 3 0 0 0 0 , 

. . 13300.0,13600.0,13335.17, 7* 0.0/ 

DATA ALT / 3 00 0 . C , 3 0 0 0 . 0 , 6 00 0 . 0 , 8 00 0 . C , 60 0 0 . Q , 350 0 . 0 , 

9 50 0 ,0,10 500 .0 ,1150 0.0 ,13000.0 ,14500. 0 , 
17000.0,18000.0, 7*0.0/ 

DATA . • INC / 28. 5, 19. 6, 15. 8, 12. 3, 10. 14, 6. 66, 3. 52, 7. 67, 

> 6.4, 5.5, 3.37, 2.45, 3* 0.0 / 


FIND THE RANGE OF DELTA V 
DO 20 NPl = 2,12 

IF (OVTUG .LE. TUGDV (NPl) )GO TO 30 
20 CONTINUE 


SEPOV 

SEPOV 

INTORB 

INTOR'B 

INTORB 

INTORB 

INTORB 

INTORB 

INTORB 

INTOR'B 

INTORB 

INTIIRB" 


29 

30 

9 

4 

5 

6 

7 

8 
9 

10 

Tl' 



-j 

w 

I 


INTORB 

12 

INTORB 

13 

INTORB 

14 

— TNTORBr- ■“ 

■"15 

INTORB 

16 

INTORB 

17 

INTORB 

18 

'"l-NTORB ■' 

IB 

INTORB 

20 

INTORB 

21 . 

INTORB 

22 

INTORB 

23 

INTORB 

24 

INTORB 

25 

INTORB 

26 

INTORB 

27 

INTORB 

28 

INTORB 

29 

INTORB 

30 

INTORB 

“31 ■ — 

INTORB 

32 



. . FOUND 

Xd£. SJN6E 

C.O.NPUTE THE ALT AND 

INC. 


M' 

30 NPO = NPl - i 




INTORB 

35 

FRAC = ( OVTUC - 

TUG D7 (NPO 

> ) / (TUGD\/(NPi) - 

TUGOV(NPO )) 

" INTORB 

36 

HCO = ALKNPO ) 

* FRAC» 

(ALT(NPi) - ALT(NPO 

) ) 

INTORB 

37 

ICOS = INC(NPO ) 

f FRAC+ 

(INCtNFl) - INC(NPO 

} ) 

■ INTORB 

38 

RETURN 




INTORB 

39 

END 




INTORB 

40 

SUBROUTINE CON(I, 

K) 



CON 

2 


K = 0 
IFd.EQ.lri 
K=1C0 


) RETU-^N 


IF(I.EQ.‘.ri 

0) 

K=G 

IFd.Eo, 

1) 

K = 1 

IFd.EQ.4H 

2) 

K = 2 

IFd.EQ.4H 

3) 

K = 3 

IFd.EQ.4H 

4) 

K=4 

1F(I.EQ.4H 

5) 

K=5 

IFd.EQ.4H 

6 ) 

K=6 

IFd.,EQ.4H 

7) 

K=7 

IF(I,EQ.4H 

8) 

K=8 

iFd.EQ.LH 

9) 

K=9 

IF d . EQ. 4H 
1F( I.EQ.4H 

10) 

K=10 

11) 

K = ll 

IFd.EQ.4H 

12) 

K = 12 

IF(I.EQ.4H 

13) 

K=13 

IFd,EQ.4H 

14) 

K = 14 

IFd.EQ.4H 

15) 

K'=15 ■ 

IF(I.£Q.4H 

16) 

K = 16 

XFd.EQ.4H 

17) 

K=17 

IFd.EQ.4H 

13) 

K = 15 

I F d . EQ . 4H 

19) 

K = 19 

IFd.EQ.4H 

28) 

K=20 

lFd.EQ.4H 

21) 

K = 21 

. IFd.EQ.4H 

22) 

K=22 

IF(I.EQ‘.'4H 

2'3) 

K=23 

IF(I.EQ.4H 

24) 

K = 24 

iF(I.EQ.4H 

25) 

K=25 

IFd.EQ.4H 

2o) 

K = 26 

IFd.HQ'.‘4H 

27) 

'K=27 

IFd.EQ.4H 

28) 

K = 28 

IFd.EQ.4H 

29) 

K = 29 

IFd.EQ.4H 

30) 

K = 3Q 

" IFd.EQ.4H 

31) 

K=3i 

. IF(I.EQ.4H 

32) 

K = 32 

IFd.EQi4H 

33) 

K = 33 

IFd.EQ.4H 

34 ) 

K = 34 

IF(I,EQ‘.4H 

35) 

K=35 

IF(I.EQ.4H 

36) 

K=36 

IF( I.EQ.4H 

37 ) 

K-37 

IF(I.Eg,4H 

38) 

K = 38 

' IFd.EQ.4H‘ 

39) 

K=39 

IFd.EQ.uH 

49) 

K = 40 

IFd.EC.4H 

41) 

K = 41 

IFd.EQ. 4 H 

42) 

K=42 

IFd.EQ.4H- 

43) 

K = 43 

IF(I.EQ.4H 

44 ) 

K = 44 


CON 

CON 

CON 

CON 

CON 

CON 

‘CON 

CON 

CON 

CON 

"-con 


3 

4 

5 

6 
7 
fl 
9 

10 

11 

12 

13“ 


CON 

14 

CON 

15 

CON 

16 

CON 

ir- 

CON 

is 

CON 

19 

CON 

20 , 

CDW 

- - ji— 

CON 

22 

CON 

23 

CON 

24 

CON 
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